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FOREWORD 


This report was prepared in accordance with Contract F33615-76-C-2024, Project Number 
3066 Lo-Frequency Augmentor Instability Study. The work was conducted under the direction of 
Captain F. N. Underwood, Project Engineer, TBC of the Air Force Aero Propulsion Laboratory. 
The Naval Air Propulsion Center co-sponsored the contract and Mr. W. W. Wagner was the 
program monitor. This report presents the user’s manual for the low-frequency instability digital 
computer program developed by Pratt & Whitney Aircraft Group, Government Products Division 
of United Technologies Corporation, P. O. Box 2691, West Palm Beach, Florida 33402. This was 
was performed during the period 1 March 1976 through 1 March 1978 and was submitted for 
approval 1 April 1978. The principal contributors were G. Petrino, R. Murphy, G. Brant, 
and R. Ernst, under the direction of P. L. Russell, the Program Manager for the Pratt & Whitney 
Aircraft Group. 
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Definition 


Area 

Stirred reactor mass loading 
Dummy variable in eqn. (128) 
Reaction index in eqn. (111) 
Surface area 

Bypass ratio 

Wake width per unit flameholder 
Activation energy constant in eqn. (111) 
Sonic velocity 

Drag coefficient 
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Pressure 
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Heat flux 
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Entrophy 

Turbulent flame speed 
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Temperature 

Ideal temperature 

Time 
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Flameholder lip velocity 

Internal energy 

RMS turbulence velocity fluctuation 
Velocity 

Wake volume 

Duct width 

Mass flowrate 

Liner cooling flow/total engine flow 
Axial distance 

Distance 

Stoichiometry factor in eqn. (108) 
Flame penetration distance 
Defined in eqn. (76) 

Defined in eqn. (125) 
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Special Symbol: 
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Definition 


Flarneholder apex angle 
Defined in eqn. (75) 

Droplet vaporization coefficient 
Droplet collective coefficient 
Surface vaporization coefficient 
Blockage ratio 

Ratio of specific heats 

Wake reaction efficiency 
Turbulence intensity 

Efficiency 

Latent heat of vaporization 
Viscosity 

Oxygen concentrative 
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Density 

Wake residence time 
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Finite difference 


Typical Units 
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d’less 
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Subscripts Definition 
a Air 
c Collected; Combustion, fan stream values 
ex Exit 
ext External 
f Fuel 
F/H Flameholder reference 
fict Fictitious 
g Gas 
H Core stream values 
i Initial — Ideal value 
] Liquid 
MB Main burner reference 
oO Initial — Signifies ideal value 
OA Overall 
r Recirculated 
stoich Stoichiometric 
I Total (combined) value 
v Vapor; Vaporized 
Ww Wake reference 
Superscripts ; 
_ Average value (e.g., X) 
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SECTION | 


INTRODUCTION 


Pratt & Whitney Aircraft Group Customer Computer Deck (CCD 1144-0.0) is a two- 
part program consisting of: (1) Rumble Model — a dynamic analytical model that will 
predict the rumble stability limits and characteristics of turbofan engine augmentors, and 
(2) Flameholder Combustion Model — an analytical model that will predict the steady-state 
combustion field for a turbofan engine augmentor. The rumble model and flameholder 
combustion model may be exercised independent of each other or the flameholder com- 
busticn model may be exercised to supply combustion data to the rumble model (Figure 1). 
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Figure 1. Combined Model Overview 


The object of the rumble model is to predict the conditions under which low-frequency 
augmentor instability (rumble) will occur. The deck will not predict the magnitude of rumble 
(amplitude) but instead only identifies the conditions under which rumble will occur. The 
object of the flameholder combustion model is to model the augmentor heat release process 
in terms of physical geometry and operating conditions for liquid hydrocarbon fuels in a 
conventional spraybar injector — V-gutter flameholder configuration. 


The deck provides the capability of changing augmentor geometry and operating con- 
ditions. In addition, the ramble model contains simulations of three augmentor designs: 
V-gutter, Vorbix and Full Swirl. Since the flameholder combustion model simulates only 
the V-gutter flameholder, empirical combustion data must be used for the Vorbix and Full 
Swirl cases. 


The User’s Manual describes the combined rumble/flameholder combustion model and 
how to use the program to predict: (1) turbofan engine augmentor low-frequency combus- 
tion instability (rumble) and (2) turbofan engine augmentor steady-state combustion field. 
To assist in checking out the CCD at the user facility, the following items are included: 

(1) Program Listings 

(2) Test Case Input 

(3) Test Case Output 


If questions arise concerning deck operation, please contact your local Pratt & Whitney 
Aircraft field representative. 


SECTION I! 


TECHNICAL DISCUSSION 


1. _AUGMENTOR DESCRIPTION 


Afterburning is a method by which the maximum thrust capability of a basic engine 
may be augmented by an additional 50 percent, or more. Fundamentally, an augmentor 
(afterburner) is a ramjet engine attached to the turbine exhaust case of a turbojet or turbo- 
fan engine. The gases discharged from the turbine of the basic engine have sufficient veloc- 
ity at the higher thrust settings to satisfy ramjet requirements, regardless of whether the 
aircraft is in a steep dive or standing still at the end of a runway. 


The basic augmentor (V-gutter), Figure 2, consists of only four fundamental parts: 
the afterburner duct, the fuel nozzles or spraybars, the flameholders, and a two-position or 
variable area nozzle. Because the exhaust nozzle area requirements vary significantly de- 
pending on whether or not the augmentor is operating, a variable area exhaust nozzle is in- 
corporated. 


Thrust modulation in the afterburning mode is accomplished by varying the flow of 
fuel to the augmentor. However, in order to maintain good combustion efficiency in the 
auymentor over a wide range of fuei-air ratios, the augmentor is separated into fuel supply 
“zones” or segments, for best fuel distribution. 


am neneuolder Variable Area Nozzle — a 


Sprayrings — Afterburner Duct 


Figure 2. V-gutter Augmenior 


The afterburner duct must be of such proportion that stable combustion can be main- 
tained during augmentor operation. This requires a burning section of sufficient cross-sec- 
} tional area to ensure that the gas velocity through the augmentor does not exceed the rate 
of flame propagation. Otherwise, the flame would not be able to establish a firm foothold 
because the onrushing turbine exhaust gases would push the burning mixture right out of 
the exhaust nozzle. Fuel is introduced through a series of perforated spraybars located 
inside the forward section of the afterburner duct. Not far aft of these, flameholders are 
provided to help create local turbulence and to reduce the gas velocity in the vicinity of 
the flame. The flameholders may take the form of concentric rings or radial arms of an 
angular “‘V” cross section, hence the name V-gutter augmentor. 


Two advanced augmentor concepts are currently being investigated under Navy and 
NASA contracts. Both are swirling flow concepts which eliminate the necessity for flame- 
holders. In one of the concepts, termed the Full Swirl augmentor, the entire augmentor 
flow is swirled around the engine centerline, Figure 3. Hot combustion products are pro- 
vided on the OD of the swirling flow by an annular pilot burner on the OD of the augmen- 
tor. Main stream fuel injection is accomplished by several sprayrings. The swirling flow 
develops a strong centrifugal field in which hot combustion products issuing from the pilot 
burner on the OD of the swirling flow are rapidly displaced towards the center of the 
augmentor, while the cooler interior air and fuel mixture are centrifuged outward. Com- 
bustion occurs at the interface of the hot and cold gases. 
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Swirl Vanes 


Figure 3. Full Swirl Augmentor 
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The second concept, termed Vorbix, (vortex burning and mixing) employs a large 
number of small-scale vortices developed by swirlers or triangular-wing vortex generators. 
} Figure 4 schematically shows this concept. All augmentor fuel flow is admitted through an 
b annular pilot burner located near midspan of the augmentor between the fan and core 
streams. Combustion occurs as the vortices mix the hot fuel-rich pilot exhaust with air in 
the fan and core streams. 


Delta Wings Mixer 
Core Stream 
Primary Fuel Zone Ring 
Splitter — Swirlers 


Fan Stream 


Figure 4. Vorbix Augmentor 
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2. RUMBLE MODEL PROGRAM DESCRIPTION 
a. General 


The augmentor math model consists of a set of time dependent equations describing 
the longitudinal dynamics of the flowing airstream and the axially distributed combustion 
process in the augmentor, coupled with a solution technique for determining stability. 
These equations are linearized, through the assumption of small perturbations, and trans- 
formed from the time domain to the Laplace transform ‘‘S” domain. The solution tech- 
nique is based upon the Nyquist stability criterion and consists of determining whether the 
time response of the system to a small disturbance would display oscillatory behavior with 
a growing amplitude. The result is a determination of stability at a given operating point, 
regions of operation which will cause rumble, and changes to the augmentor to make it 
rumble-free. 


b. Modeling Approach 


Since rumble has long been associated with the relatively low-frequency longitudinal, 
or axial, modes of vibration of the air column in the augmentor, the model was formulated 
to take only the longitudinal dimension into account. Accordingly, each station in the 
model was considered to represent a plane over which the value of any parameter (such as 
velocity, pressure or density) could be considered as uniform at any instant in time. 


Motion pictures of rumble have shown a change in color of the burning gas during a 
cycle of oscillation, indicating that alternate hotter and cooler combustion products were 
being produced. These hot and cold combustion products could be seen drifting from the 
flameholder to the exhaust nozzle in a time span which matched, or was a multiple of, the 
period of oscillation of the rumble. Since flowrate out through the nozzle is dependent 
upon the temperature of the entering gas, it was important that the model treat the traveling 
combustion products, which were mathematically identified ‘as traveling entropy waves. 


The equations developed for describing rumble can be classified into two types. First, 
there are the momentum, continuity and energy equations, together with the boundary 
conditions, which describe how each parameter at any station in the augmentor responds to 
a disturbance in combustion heat release. These are referred to as the acoustic equations. 
Secondly, there are the combustion equations which describe how combustion heat release 
responds to variations in the system parameters such as velocity, pressure and density. To- 
gether, the acoustic equations and the combustion equations describe the rumble mecha- 
nism, by which a disturbance in combustion causes a disturbance in velocity, pressure and 


' density throughout the augmentor which in turn causes a disturbance in combustion. A 


description of the equations, boundary conditions and assumptions is presented in the Ap- 
pendix A. 


Since the purpose of the program was to develop an understanding of the rumble 
mechanism and demonstrate that the onset of rumble could be predicted, thereby defining 
the boundary between stable and unstable operating regions, it was necessary only to model 
the augmentor for the first few increments of time before the oscillation had built up into 
an appreciable amplitude. This allowed use of a small perturbation technique which led to 
linear equations and mathematical simplification. Linear equations can describe the system 
for small oscillation amplitudes and can predict whether the system initially at rest would 
begin to oscillate, Because the non-linearities associated with large amplitude oscillations 
(which eventually stop the amplitude from growing) were ignored, the linear equations do 
not allow a prediction of the final limit-cycle amplitude. 


c. Model Description 


The rumble model was designed for simple input-output and requires no intermediate 
engineering interpretation, Figure 5. The input requires engine geometry and pressures, 
temperatures and Mach numbers, obtained from engine steady-state cycle tables. The user 
may select to input augmentor fuel-air ratio and empirical combustion data or he may ex- 
ercise the flameholder combustion model which calculates and supplies the required aug- 
mentor combustion data to the rumble model. An input option allows the user to specify 
the specific augmentor types (V-gutter, Vorbix or Swirl) to be used. No calculation nor 
dynamic information is required. The user may select either tabular and plotted output or 
only plotted output, as shown in Figure 6. From the plot the user identifies the frequencies 
at which the phase is zero. He then checks the gain at each of the identified frequencies. If 
the gain is one or greater, the program has predicted that rumble will occur. If the gain is 
less than one, the program has predicted that the operating point is stable. For example, 
Figure 6 indicates rumble at 60 Hz and at 140 Hz. The user can then change geometry or 
operating point inputs and repeat the process to determine the effects of the change. This 
form of output was chosen because it facilitated development of the model, yielded a com- 
pact, easy to interpret answer, and made better use of computer time than a time-domain 
solution. 


To model, rumble required a transient description of the longitudinal dynamics of a 
turbofan engine, To computerize the formulation, the mathematical description was sim- 
piled by restricting the range of validity of the equations to small perturbations about a 
mean steady-state operating point. This allowed linearization of the equations to a form 
which correctly describes small scale transients, but in which the nonlinear terms which are 
important in large scale transients could be omitted. The resultant linearized equations 
describe the initial period of the time when rumble oscillations begin to grow and are valid 
to the point where the rumble amplitude reaches values at which the nonlinear terms be- 
come important. This is sufficient to determine whether an engine, if placed at a given op- 
erating point, will spontaneously bloom into rumble. 


The model could have been made to yield solutions in the time-domain by program- 
ming the equations on an analog computer. The output would have been a time trace of 
any selected parameter (e.g., augmentor pressure). At a stable operating point the trace 
would be a straight line, whereas at an unstable operating point the trace would show a 
sinusoidal oscillation with an increasing amplitude. The amplitude would grow without 
bound for as long as the solution continued, because of the omission of the nonlinear terms. 


The same information can be more easily obtained by a non-time-domain solution 
technique. Such a technique was chosen for the rumble model. Commonly called the 
Nyquist criterion, it is based upon the fact that the allowable forms of the time-domain 
solution are known. This technique allows use of a matrix program which can quickly solve 
large numbers of simultaneous equations. 


The Nyquist criterion is a procedure which makes use of the Laplace transform and 
conformal mapping to determine whether the transient solution would show unstable be- 
havior. To apply the criterion, the time-domain equations are transformed into the Laplace 
“S” domain, The result is a square homogenous matrix. The determinant of the matrix co- 
efficients is a function of “‘S”’, called the characteristic function, and contains all of the in- 
formation needed to determine whether the system being described is stable or unstable. If 
all zeros of the characteristic function have negative real parts, the system is stable; if any 
zeros have positive real parts, the system is unstable. Conformal mapping is used to examine 
the characteristic function for the presence of zeros with positive real parts. 
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Figure 5. Rumble Model Flow Diagram 
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Figure 6. Rumble Model Plotted Computer Output 


To accomplish the conformal mapping the equations which describe the augmentor 
were written to describe a ‘‘feedback loop”. The feedback loop was formed for the rumble 
model by considering that the combustion rate, called qin was an “input” to the acoustic 
equations. This yielded as ‘“‘output” the pressure, velocity and density at each station 
throughout the engine. The ‘‘output’”’ was then considered to feedback through the com- 
bustion equations to form a “feedback” combustion heat release rate, called q'.,,,,. The re- 
sultant “loop” is shown in Figure 7. Actually, only one heat release rate is present. The use 
of the two names qin and q' out allows the formation of the ratio q' out/4 in’ called the 
“Open Loop Transfer Function” (OLTF). Conformal mapping to examine the zeros of the 
characteristic function is carried out by using the OLTF. 


Referring to Figure 7, the heuristic argument can be made that if a loop is subjected to 
an externally supplied sinosidal input (q';)and it returns a feedback (q’ out) Which is in 
phase with the input (¢ = 0) and of equal amplitude (gain = 1), then the externally supplied 
input could be removed and the loop would continue to oscillate. A gain greater than one 
then implies that the loop would be driven to ever higher amplitude, while a gain less than 
one implied that the oscillations would die out once the input were removed. The model 
determines whether the time solution, if calculated would display oscillatory behavior with 
a growing amplitude. It does this through a solution technique which is simpler and faster 
to apply than a solution in the time-domain. 
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Figure 7, ‘Feedback Loop” Visualization of Rumble Model gen-093 


3. FLAMEHOLDER COMBUSTION MODEL. PROGRAM DESCRIPTION 
a. General 


The combustion model performs a multi-streamtube analysis of the flame stabilization 
and propagation phenomena in a turbofan augmentor. The augmentor is divided into a 
multitude of equivalent two-dimensional streamtubes with a single flameholder element in 
each. The program evaluates each streamtube and then mass averages the results. 


For each streamtube the program proceeds from the augmentor inlet towards the ex- 
haust nozzle and evaluates each step in the stabilization and propagution of the augmentor 
process. The ultimate result is the level of combustion efficiency in that streamtube. The 
program then performs a small perturbation in velocity, pressure, inlet temperature and 
fuel-air ratio to evaluate the efficiency slopes. 


The final outputs are the fan duct efficiency, the core stream efficiency and the ef- 
ficiency slopes with respect to the four perturbed variables. 


b. Modeling Approach 


The approach taken for each streamtube is a step-by-step solution to the physical 
phenomena which determine the flame stability limits of the spraybar-flameholder config- 
uration and the subsequent turbulent flame propagation rate. These phenomena include 
liquid fuel injection, droplet formation, vaporization, fuel impingement onto the flame- 
holder, wake reaction kinetics and turbulent flame penetration. 


The approach used is different for the fan duct streamtubes and the core strearmtubes. 
The necessity for different approaches lies in the degree of liquid fuel vaporization between 
the spraybar and the flameholder. In the core streamtubes,the fuel is virtually totally 
vaporized in the first few inches by the hot turbine exhaust flow. In the fan duct stream, 
the much cooler airflow results in only a slight degree of vaporization in the four to six 
inches typical spraybar to flameholder distance. 


10 


The core stream analysis is thus done assuming that the fuel at the flameholder is in the 
vapor phase and the flameholder wake fuel-air ratio is the same as the total fuel-air ratio. 
This value is used in the kinetics analysis of the wake reaction to evaluate the stability limits. 


In the fan duct streamtubes, however, the low level of droplet vaporization yields a 
vapor phase fuel-air ratio at the flameholder which is well below the lean limit for hydro- 
carbon fuels. Since the liquid fuel droplets are not capable of entering the flameholder re- 
circulation wake due to their excessive momentum, there must be some other mechanism to 
provide the necessary wake vapor fuel for stable combustion. 


This mechanism in the fan duct streamtubes is the collection of the liquid fuel droplets 
onto the surface of the flameholders and the vaporization of the resultant liquid film. This 
evolved vapor recirculates into the flameholder wake with a portion of the droplet evolved 
vapor fuel to generate the wake vapor fuel concentration. 


The streamtube analyses compute the degree of wake reaction at the level of vapor 
fuel-air ratio appropriate to the streamtube type and approach conditions. For the fan duct 
cases, this requires a convergent solution between the wake kinetics and the surface vapor- 
ization, 


Once the flamehoider wake reaction level is evaluated, the analysis computes the rate 
of flame penetration into the free-stream as a turbulent flame sheet. ‘This rate is adjusted by 
the wake reaction level to account for the ignition response in the recirculation zone shear 
layers. The flame penetration rate is integrated over the available augmentor length to pro- 
vide the level of streamtube efficiency. 


The program thus performs a quantitative evaluation of the phenomological processes 
which occur in the turbofan augmentor. The individual calculations are a combination of 
analytical evaluations and empirical results as required to ensure quantitative accuracy. 


c. Model Description 


The combustion model was designed as a complete unit. The program does not require 
on-line engineering interaction. The combustion model may be run as a separate entity or 
as a generator for subsequent stability analysis with the rumble model. When exercised 
alone, the combustion model is an augmentor analysis program and the output is a com- 
prehensive description of the injection, stabilization and flame propagation processes. In 
this mode, the program is useful as a design tool for conventional turbofan augmentors. The 
effects of fuel system distribution and V-gutter flameholder tailoring may be determined. 


When exercised in conjunction with the stability analysis, a lesss extensive output is 
given and the prime purpose of the program is to generate the response of augmentor ef- 
ficiency to variations in fuel-air ratio and inlet velocity, pressure and temperature. 


The augmentor breakdown and specific description of one streamtube is shown in 
Figure 8. For a single fan duct streamtube, the computer logic is shown in Figure 9. The 
identified subroutines each evaluate a specific portion of the overall combustion process. 
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Figure 8. Location of a Core Streamtube in a Turbofan Engine Augmentor 
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Figure 9. Single Streamtube Logic Map 
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The input requirements for a fan duct streamtube are those to fully describe the 
approach flow field, geometry of the streamtube and flameholder, and the total fuel-air 
ratio. The execution of one streamtube proceeds as follows: 


(1) INJECT 


This subroutine evaluates the droplet sizes formed by a variable area spraybar as a func- 
tion of the injection pressure drop. Five droplet sizes are calculated which represent the 
cummulative volume versus pressure drop curve for this spraybar type. 


This subroutine evaluates the amount of the liquid fuel which is flash-vaporized by the 
injection process. This evaluation is performed as an adiabatic expansion process from the 
high-pressure spraybar fuel condition to the low-pressure augmentor conditions. The ap- 
propriate fuel enthalpy chart is used, keyed by the fuel type input variable. 


The liquid flowrate which remains is partitioned equally into the five size groups. The 
total flowrate is originally calculated from the total fuel-air ratio input and the air flow which 
is calculated from the streamtube geometry and flow conditions. 


(2) ACCEL 


This program subroutine evaluates the rate of droplet vaporization and acceleration 
which occurs between the spraybar and the downstream V-gutter flameholder. 


The equations for acceleration assume a spherical liquid droplet which is accelerated by 
drag forces only. The drag coefficient is evaluated as a function of Reynold’s number based 
on the relative air-liquid velocity. 


Concurrently, the rate of liquid vaporization is evaluated as forced convection mass 
transfer utilizing a mass transfer Nusselt number correlation which is also based on the rela- 
tive velocity Reynold’s number. The requirement to simultaneously solve the vaporization 
and acceleration equations was met by a finite difference solution. A small time increment 
is selected and the acceleration solution performed to generate a velocity increase for the 
liquid droplet. Using the average velocity over this time increment, a vaporization rate is 
calculated and a vaporized fraction evaluated. This sets a new droplet size for the next time 
interval. The average velocity over this time is also used to calculate a distance travelled. 


This procedure is repeated until either the liquid droplet reaches the flameholder or is 
fully vaporized. This analysis is repeated for each size group of the five initially set. 


(3) COLLECT 


At the flameholder plane, the program evaluates the rate of liquid deposition onto the 
surface of the V-gutter. This deposition occurs as the liquid droplets are unable to follow 
the divergent air flow streamlines around the leading edge of the flameholder. 


The evaluation of the rate of deposition is performed as a correlative solution to the 
point where liquid droplets just hit the flameholder surface. The variables include flame- 
holder geometry, droplet diameter and flow conditions. The correlation equations are 
based on calculations which were done externally to this program, where limit trajectories 
were established based on potential flow solutions to the flow field approaching the flame- 
holder. 
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The program utilizes the droplet diameter which exists after the vaporization evalua- 
tion to calculate the percentage of the liquid flowrate in each size group which is deposited 
on the V-gutter surface. This is done for each of the five size groups. The collection mass 
flowrate is evaluated from each size group collection percentage and the liquid flowrate in 
each group at the flameholder. 


(4) RECIRC 


The gaseous recirculation rate into the flameholder wake is evaluated from a variety of 
literature sources which present recirculation zone volume and flowrate as a function of 
flameholder geometry and flow conditions. The program evaluates a “recirculation efficien- 
cy” which is the ratio of recirculated mass flow to the flowrate through the area blocked 
by the flameholder, This typically runs 15 to 25%. 


The correlations cover a range of the variables which control the recirculation such as 
flameholder apex angle, blockage, approach Mach number, and temperature. The result of 
the subroutine is the recirculation zone. These are used in the analysis of the wake reaction 
efficiency. 


(5) WAKE 


The wake reaction is treated as if it occurred in a well-stirred reactor with volume and 
entry flowrate as evaluated in RECIRC. The kinetics are assumed to proceed as a single-step, 
second order conversion process. The kinetics utilize rate coefficients which simulate aircraft 
fuel behavior. The required inputs are wake volume, wake fuel-air ratio, recirculation rate 
and inlet conditions of pressure, temperature, etc. The output of the analysis is the wake 
reaction efficiency and mean wake temperature. 


(6) BETA 3 


This subroutine evaluates the degree of vaporization of the liquid film which exists on 
the flameholder surface. The vaporization process is one of forced convection from the 
surface into the trailing wake shear layer and heat transfer from the flameholder wake 
through the flameholder metal into the liquid film. The program utilizes a small element 
approach using 10 elements on each side of the flameholder. The mass flux and heat flux 
are evaluated for one-at-a-time starting at the flameholder leading edge. Any liquid left un- 
vaporized is assumed to leave the trailing edge of the flameholder and traverse through the 
wake shear layers downstream. 


The solution of WAKE and BETA 3 must be done simultaneously since BETA 8 re- 


quires wake temperature to find fuel vaporization and the vaporization influences WAKE 
through fuel-air ratio. 


The solution approach is described in Appendix B with a typical result shown here in 
Figure 10. 


(7) FLAME 
The turbulent flame propagation downstream of the flameholder uses a small step dif- 


ference solution with axial profiles of turbulence, flow, etc. The procedure is described in 
Appendix B. 
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Figure 10. Duct Stream Flameholder Wake Solution 
d. Input Requirements and Comments 


The model requires as input the physical variables which describe the fan duct and core 
stream geometry and operating conditions. Since the model functions by repetitive analysis 
of single streamtubes, the input is required for each different type of streamtube. A different 
type is one with any input variable different. 


The input requires the following values along with the input described in Section II. 6. 


BPR Actual value. Default to 1.0 if run as a duct burner with no core 
engine and WCOOL = 1/2 x (mcool/mduct) 


M6C \ 

Inlet Mach numbers 
M6H i 
NTC No. of types of fan duct streamtubes 
NTH No. of types of core streamtubes 
PS6 Inlet static pressure, psia 


Array input is required to describe each streamtube fully. These array values are aero- 
dynamic and geometric. The array is the number of streamtube types in the fan (NTC) or 
core (NTH) and the number of stream flow tubes of each type identified in the fan (NSC) or 
core (NSH) sections. If three different types of fan streamtubes are used (NTC = 3), witha 
total number of 28 fan streamtubes (18 of flameholder width (FHWC) = 1.0 in., 4 of flame- 
holder width = 0.75 in. and 6 of flameholder width = 1.25 in., NSC = 18, 4, 6) and if the first 
two types operate at the same fuel-air ratio (FAC), but different from the third, then the 
input to the model to describe this case would be (see Figure 18): 
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OInput ass xs » NTC = 3, NSC = 18, 4, 6, FHWC = 1.0, .75, 1.25, 
FAC = .05, .05, .045,.... 
6 End 


The program as currently written assumes a unit depth streamtube, i.e., 1 inch depth. 
The mass flowrates will be based on this value. If true flow values are required, the number 
of each type (NSC or NSH) should be the number of 1 inch deep streamtubes of that type. 
This is shown in Figure 11. 
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Figure 11, Location of Typical Fan Duct Streamtube 
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e geometric i s required for a single streamtube are shown in Figure 12. The 
The geomet nputs required for gle str tul ‘i rin Fig 12. ‘Tt 


value of blockage is referenced to Figure 11. The input should reflect the ratio of flame- 


holder width to the streamtube limits. This value of blockage sets the required flame 
penetration for 100% efficiency and must be input correctly. 


The value of EPSC is the approach turbulence and will affect the flame speed. Unless 


specific data are available, use a value of 0.04 for a turbofan engine. 


Flameholder 


ALPHAC 


Spray 
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= LSC —=>~—_____———+ 
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TAUC = Flow Width 
FO 146486 
Figure 12. Single Streamtube Geometry and Flow Inputs - Fan ony 


The input value for PFSR controls the mean droplet size from the sprayring, which has 


data from a variable area orifice built in. If other values are desired, use the equation: 


dgg = 795 - (PFSR. -- PS6)~"4 


to determine the input value of PFSR required to yield a desired mean droplet diameter, in 


microns. This is the only place where PFSR is used, so no disruption occurs if non-true 
values are input. 


For the aerodynamic inputs, also reference Figure 12, the required input is shown. As 


previously mentioned, PS6 is assumed to be uniform across the streamtubes. 


One input set requires external evaluation. This is the values assigned to WEXT and 
TEXT in the fan duct streamtubes. The purpose of this input is to account for the influ- 


ence of hot gas migration down the wake region of the fan duct flameholders from either 


the core or frem a pilot. WEXT is defined as the ratio of this “external” flowrate to the 
recirculated flowrate. To allow for flexibility in design selection, this input format was 


selected. The user must evaluate whatever flowrate is expected and calculate WEXT. For 


use in estimating the recirculated flowrate, assume Ky * 0.25 use: 
m, = K; * pa VaN 
for recirculation rate per inch of flameholder length. Typical values of WEXT are .02 to 
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.04. TEXT is the temperature of this “external” flowrate. These are shown in Figure 13. 
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Figure 13. External Heat Addition to Fan Duct Gutters 


The liner cooling airflow input, WCOOL, is the ratio of cooling liner air to total engine 
air. As such,the engine bypass ratio is required to evaluate the net available fan duct air- 
fiow. If no cooling air is taken from the fan duct or if input fuel-air ratios are based on the 
ture net air available for combustion, input WCOOL = 0.0. If a duct burner is being analyzed 
and it does have a cooling liner, set a dummy value of 1.0 for BPR and set WCOOL by: 


WCOOL = ™coolin : 
Bia ™dquct burner 


e. Output 


The program has two output formats, long and short. The long format presents de- 
tailed values for the processes which control the wake vapor-phase fuel-air ratio and flame 
penetration. The short format essentially presents the overall results. For both, the results 
are presented as a streamline-by-streamline analysis with fan and core summaries. 


(1) FAN STREAMTUBES 


The long format presents the input data for each streamtube and two calculated values. 
These values are the effective streamtube fuel-air ratio and the effective recirculation tem- 
perature. The equations used for these are shown in Appendix B. 


The output lists the calculated values for the injection process; mean droplet size and 
flash vaporization; and the influence coefficients, B,, Bg, Bg and Ky, which control the wake 
fuel-air ratio. The importance of these values is oxplateis earlier in this section and 
Appendix B. 


18 


A word of caution is in order here. If the output is preceded by the warning that the 
wake temperature iteration has failed, the situation is such that the wake has exceeded the 
rich limit at the input conditions. Although output is presented, it is not valid and merely 
represents the limits of the internal convergence search routine. For example, wake tem- 
perature will always be 5000° F for a failed case. If a single streamtube is being run, several 
other error messages will result as the program attempts to interpret zero efficiency. If 
multiple streamtubes are being run, the program will ignore the failed streamtube in all 
calculations. 


The initial flame speed is the laminar flame speed at the appropriate inlet conditions. 
The turbulence level is the value induced by the flameholder. 


In the stream efficiency section for each streamtube, the following comments are 
applicable: 


e The ideal temperature use is based on the effective fuel-air ratio. 


e The efficiency is the ratio of flame penetration to streamtube width 
at the exhaust nozzle. 


e The actual temperature rise is based on the above conditions. The 
exit temperature is based on streamtube inlet plus this actual 
temperature rise. 


e The flowrates are for a 1 inch deep streamtube. The fuel flowrate 
uses the effective fuel-air ratio. 


The fan streamtube summary presents the major items from each streamtube and then 
the exit average results. The cooling air flowrate ratio is repeated here. Two more values of 
combustion efficiency are presented and two values of average exit temperature. 


The average streamline exit temperature is the mass weighted average of the individual 
exit temperatures. The chemical combustion efficiency is based on this value for exit and 
an ideal temperature use based on the average effective fuel-air ratio and average inlet 
temperature. 


The average duct exit temperature includes the mass weighted effect of the liner 
cooling air being added to the streamtubes at the exhaust nozzle inlet. The average thermal 
combustion efficiency is based on this exit temperature, the average inlet temperature and 
an ideal temperature rise is based on the average input fuel-air ratio. 


Since engine analysis procedures generally base the fan duct fuel-air on the total duct 
airflow and use the thermal nozzle inlet averages, the value of thermal combustion efficiency 
is the one which is used for rumble prediction. 


The total flowrate presented here includes the number of each type of streamtube as 
do all of the above-mentioned mass averaged values. 
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Also note that at no time are efficiencies ever mass averaged directly. All average ef- 
ficiencies are based on comparison of the average results of individual streamtubes to the 
result of the average inlet. That is, the burn-then-mix process is compared to the ideal mix- 
then-burn process. Since curves of ideal temperature rise exhibit peak vs. fuel-air ratio, the 
average efficiency of two streamtubes, one lean and one rich, may very well be less than 
either streamtube separately. 


(2) CORE STREAMTUBES 


Due to the absence of droplet effects, the output is greatly simplified. The wake re- 
action results are presented as well as initial flame properties. Without liner cooling air, 
there is no fuel-air ratio shift and thus, only one efficiency definition. The process of evalu- 
ation of the ideal temperature rise is given in Appendix B. All of the comments in the fan 
stream apply here, except that thermal efficiency is not defined here due to the lack of 
liner cooling air. 


If the message ‘‘ Aerodynamic Loading exceeds Kinetic Capacity”’ occurs, the blowout 
limits were exceeded. 


4. PROGRAM SETUP 


The combined rumble/flameholder combustion model program supplied by Pratt & 
Whitney Aircraft contains all the subroutines necessary to operate the program, with the 
exception of systems routines normally supplied by the computer manufacturer. The pro- 
gram is written in Fortran IV and runs on any large scale computer system with little or no 
modification required. Test case input and output are included to verify successful installation. 


On the Pratt & Whitney Aircraft (GPD) IBM 370 Model 168 computer, the program 
requires approximately 364K bytes of core storage. Run time is approximately 1 second 
per point. 


5. PROGRAM PERFORMANCE OPTIONS 


The combined model has options to vary augmentor type, fan splitter type, combustion 
data source, fuel type and print-out. These options are described below: 


AUGMENTOR OPTION 


The rumble model is designed to simulate three augmentor designs: 
V-gutter, Vorbix or Swirl. 


Input Symbol Description 


NAUGOP If NAUGOP = 1, the rumble model 
simulates a V-gutter flameholder augmentor. 


If NAUGOP = 2, the rumble model 
simulates a Vorbix augmentor. 


If NAUGOP = 3, the rumble model 
simulates a Swirl augmentor. 


SPLITTER OPTION 


} The rumble model is designed to simulate two fan splitter designs: 


’ proximate splitter or remote splitter. 
Input Symbol Description 
NFSOP If NFSOP = 1, the rumble model uses a 


proximate splitter assumption at fan dis- 
charge (Fan duct does not communicate 
with core at fan discharge). 


If NFSOP = 2, the rumble model uses a 
remote splitter assumption at fan dis- 
charge (Fan duct communicates with 
core at fan discharge). 


COMBUSTION OPTION 


The combined model is designed to exercise the rumble model with empirical 
combustion data or to exercise the rumble model and use combustion data 
generated by the flameholder combustion model or to exercise the flameholder 
combustion model only. 


Input Symbol Description 


NCOMOP If NCOMOP = 1, the program reads in 
empirical combustion data and executes 
the rumble model. 


If NCOMOP = 2, the program executes 
the flameholder combustion model to 
obtain combustion data and executes 
the rumble model. 


If NCOMOP = 3, the program executes 
only the flameholder combustion mode:. 


FUEL OPTION 


The combined model is designed to operate with fuels of different lower 
heating values. 


Input Symbol Description 
JFUEL If JFUEL = 1, the program uses values for 
JP4 fuel. 
If JFUEL = 2, the program uses values for 
JP5 fuel. 
j 21 


PRINT OPTIONS 


The rumble model provides either tabular and plotted output or just plotted output. 
The flameholder combustion model provides either limited or full tabular output. 


Input Symbol 


NPRNTR 
NPRNTF 
6. INPUT 
a. General 


Description 


If NPRNTR = 0, the program provides 
both tabular rumble model output and 
Open Loop Transfer Function plots. 


If NPRNTR = 1, the program provides 
only Open Loop Transfer Function plots. 


If NPRNTF = 0, the program provides 
limited flameholder combustion model 
tabular output. 


If NPRNTF = 1, the program provides 
full flameholder combustion model 
tabular output. 


The combined model uses various input parameters depending on which combustion 
and augmentor options have been selected. An input data flow schematic for the combined 
model is presented in Figure 14. The chart at the bottom of Figure 14 indicates which data 
blocks are required for each option selected. Figure 15 lists the input required for each 
option. Figures 16 and 17 are schematics of the ramble model and flameholder model 
geometry identification. It should be noted that all input parameters are not required for 
any given option. 
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Figure 14. Combined Model Input Flow 
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Input List 


ALPHAC (100) 
ALPHAH (100) 
BPR 

pPcs 

oPpo 

OPH 

DPHS 

OPS 

EPSC 
EPSH 

ETA 

ETAC 
ETAH 

FA 

FAC 

FAC (100) 
FAH 
FAH-(100 
FAV 

FHWC (100) 
FHWH (100) 
JFUEL 

LA 

LB 

te 

LH 

L 

LK 

LSC 

LSC (100) 
LSH 

LSH (100) 


NPANTF 
NPRNTR 
NSC (100) 
NSH (100 
NTC 

NTH 

PFSR (100) 
PRNOZ 
PS6 

TAUC (100) 
TAUH (100) 
TCORE 
TEXT (100) 
TFSR (190) 
T3H 

T6C 

T6C (100) 
T6H 


WEXT (100) 
ZeF 
ZEFC 
ZEFH 
ZeEFP 
zep 
ZEPC 
ZEPH 
ZETC 
ZETH 
ZEvc 
ZEVH 
XLC (100) 
XLH (100) 


7H Mod 
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Figure 15. Input List 
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Figure 17. Flameholder Combustion Model Geometry Schematic 


b Input Description 


‘The program uses ‘“‘Namelist” input as defined in the applicable computer manual, 1.e., 
for the IBM 370, the manual is IBM Systems 360/370 Fortran IV Language Manual, 
GC28-6515-10, pages 54-56. The ‘‘Namelist” names and descriptions are given below. 
Parameter Name Description 
ALPHAC (100) Fan stream flameholder apex angle, deg. 
ALPHAH (100) Core stream flameholder apex angle, deg. 


BPR Bypass ratio, fan duct air flow/core air flow, 
dimensionless. 


DPCS 


Fan side vane pressure loss (AP/P) from 
mixing plane to ignition plane (STA 3 to 
STA 4), dimensionless (Swirl augmentor only ). 


Parameter Name 


DPD 


DPH 


DPHS 
DPS 
EPSC 
EPSH 
ETA 
ETAC 


ETAH 


FA 


FAC 


FAC (100) 


| 


‘iw 
— eee 


ee ae 


Description 


Fan duct pressure loss (AP/P) allocated to 
STA 2, dimensionless. Allocate remainder 
to STA 3; see DPS. 


Pressure loss (AP/P) from mixing plane to 
ignition plane (STA 3 to STA 4), dimension- 
less. For V-gutter augmentor this accounts 
for spraybar and flameholder pressure loss. 
For Vorbix augmentor this accounts for 
Vortex generator and pilot pressure loss (core 
and fan combined). 


Core side vane pressure loss (AP/P) from 
mixing plane to ignition plane (STA 3H to 
STA 4), dimensionless (Swirl augmentor only). 


Fan duct pressure loss (AP/P) allocated to 
STA 3, dimensionless. Allocate remainder 
to STA 2; see DPD. 


Fan stream turbulence factor, dimensionless. 
Core stream turbulence factor, dimensionless. 


Augmentor overall combustion efficiency, 
actual temperature rise /ideal temperature 
rise, dimensionless. 


Augmentor fan stream combustion efficiency, 
actual temperature rise/ideal temperature 
rise, dimensionless. 


Augmentor core stream combustion efficiency, 
actual temperature rise/ideal temperature 
rise, dimensionless. 


Augmentor overall fuel-air ratio, dimensionless. 
Defined as augmentor total fuel flow/fan 
stream air flow (STA 3) plus core stream air 
flow (STA 3H) plus primary engine fuel flow 
(STA 3H). 


Augmentor fan stream fuel-air ratio, dimen- 
sionless. Defined as augmentor fan stream 
fuel flow/fan stream air flow (STA 3). 


Augmentor fuel-air ratio for each individual 
fan stream flow tube, dimensionless. 


Parameter Name 


FAH 


FAH (100) 


FAV 


FHWC (100) 
FHWH (100) 
LA 

LB 

LC 

LH 

LI 

LK 

LSC 


LSC (100) 


LSH 


LSH (100) 


Description 


Augmentor core stream fuel-air ratio, 
dimensionless. Defined as augmentor core 
stream fuel flow/core stream air flow 
(STA 3H) plus primary engine fuel 

flow (STA 3H). 


Augmentor fuel-air ratio for each individual 
core stream flow tube, dimensionless. 


Vitiated fuel-air ratio of core stream at 
entry to augmentor (STA 3H), dimension- 
less. Defined as primary engine fuel flow 
(STA 38H)/core stream air flow (STA 3H). 


Individual flameholder widths in fan stream, 
inches. 


Individual flameholder widths in core stream, 
inches. 


Length of augmentor, mixing plane to nozzle 
(STA 3 to STA 11), inches, 


Distance from ignition plane to nozzle (STA 
4 to STA 11), inches. 


Length of fan duct, fan discharge to mixing 
plane (STA 1 to STA 3), inches. 


Distance from turbine discharge to mixing 
plane (STA 2H to STA 3H), inches. 


Distance from ignition plane to beginning of 
combustion zone (STA 4 to STA 5), inches. 


Distance from ignition plane to end of com- 
bustion zone (STA 4 to STA 10), inches. 


Distance from spraybar to flameholder in 
fan stream, inches. 


Distance from spraybar to flameholder for 
each individual streamtube in the fan stream, 
inches. 


Distance from spraybar to flameholder in 
core stream, inches. 


Distance from spraybar to flameholder for 
each individual streamtube in the core 
stream, inches, 


Parameter Name 


L2 


M6C 


M6H 


M6R 


NSC (100) 


NSH (100) 


NTC 


NTH 


PFSR (100) 


PRNOZ 


PS6 


TAUC (100) 


TAUH (100) 


TCORE 


TEXT (100) 


Description 


Distance from fan duct pressure loss (DPD) 
to mixing plane (STA 2 to STA 3), inches. 


Fan stream Mach number at entry to aup- 
mentor (STA 3), dimensionless. (Must be > 0.) 


Core stream Mach number at entry to aug- 
mentor (STA 3H), dimensionless. (Must 
be > 0.) 


Mach number of mixed augmentor stream flow 
prior to combustion (STA 4), dimensionless. 
(Must be > 0.) 


Number of fan stream flow tubes of this 
type, integer. 


Number of core stream flow tubes of this 
type, integer. 


Number of streamtube types in the fan 
flow, integer. 


Number of streamtube types in the core 
flow, integer. 


Individual spraybar fuel pressure for each 
fan flow tube, psia. 


Exhaust nozzle pressure ratio (always > 1.), 
dimensionless. If nozzle is choked, any value 
greater than critica! value required to choke 
nozzle (approximately 2.0) may be input. 
Exact value of PRNOZ is required only if 
nozzle is unchoked. 


Augmentor static pressure at entry to aug- 
mentor (STA 3), psia. 


Individual streamtube blockage ratio for fan 
stream, dimensionless. 


Individual streamtube blockage ratio for core 
stream, dimensionless. 


Core engine time constant, mass of air in core 
engine volume/mass flowrate of air through the 
core engine, sec. 


External flow temperature for individual flow 
tubes in the fan flow, deg. R. 


Parameter Name 


TFSR (100) 


T3H 


T6C 


T6C (100) 


T6H 


T6H (100) 


WCOOL 


WEXT (100) 


XLC (100) 


XLH (100) 


ZEF 


ZEFC 


ZEFH 


ZEFP 


Description 


Spraybar fuel temperature for individual flow 
tubes in the fan flow, deg. R. 


Main burner inlet temperature, deg. R. 


Fan stream temperature at entry to augmentor 
(STA 3), deg. R. 


Fan stream temperature at entry to augmentor 
(STA 3), for individual flow tubes, deg. R. 


Core stream temperature at entry to augmentor 
(STA 3H), deg. R. 


Core stream temperature at entry to augmentor 
(STA 3H), for individual flow tubes, deg. R. 


Ratio of nozzle cooling air to total engine air 
flow, dimensionless. 


External flow ratio for individual flow tubes 
in the fan stream, dimensionless. 


Distance from flameholder to nozzle for 
individual fan stream flow tubes, inches. 


Distance from flameholder to nozzle for 
individual core stream flow tubes, inches. 


Normalized slope, augmentor overall com- 
bustion efficiency vs. overall fuel-air ratio, 
FA @ETA 


STA OFA 


, dimensionless. 


Normalized slope, augmentor fan stream com- 
bustion efficiency vs. fan stream fuel-air ratio, 
FAC dkTAC 
ETAC dFAC 


, dimensionless. 


Normalized slope, augmentor core stream com- 
bustion efficiency vs. core stream fuel-air ratio, 
FAH odETAH 
ETAH dFAH 


, dimensionless. 


Normalized slope, augmentor overall com- 
bustion efficiency vs. fuel-air ratio of the 

pilot burner, 
FAP dETA 
ETA dFAP 


, dimensionless. 


pa) eee 


Parameter Name 


ZEP 


ZEPC 


ZEPH 


ZETC 


ZETH 


ZEVC 


ZEVH 


ee 


Description 


Normalized slope, augmentor overall com- 
bustion efficiency vs. pressure at ignition plane, 
P dETA 


ETA oP 


, dimensionless. 


Normalized slope, augmentor fan stream com- 
bustion efficiency vs. pressure at ignition plane, 
P dETAC 
ETAC oaP 


, dimensionless. 


Normalized slope, augmentor core stream com- 
bustion efficiency vs. pressure at ignition plane, 
P dETAH 
ETAH dP 


, dimensionless. 


Normalized slope, augmentor fan stream com- 
bustion efficiency vs. fan stream entry 
temperature, 
T6C dETAC 
ETAC aT6C 


, dimensionless. 


Normalized slope, augmentor core stream 
combustion efficiency vs. core stream entry 
temperature, 
T6H dETAH 
ETAH dT6H 


, dimensionless. 


Normalized slope, augmentor fan stream 
combustion efficiency vs. fan stream entry 
velocity, 

Vv dETAC ; 
ee CINE NOY STCAS: 

ETAC aV 

Normalized slope, augmentor core stream 
combustion efficiency vs. core stream entry 
velocity, 


Vv dETAH : : 
———__, dimensionless. 
ETAH aV 
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c. Input Setup 


In addition to the ‘‘Namelist” input, the program requires input for: (a) additional 


optional ratio calculations, (b) output plot selection and format, and (c) frequency range and 


increment selection. The input setup is shown in Figure 18 and is described below. 


(1) 


(2) 


(3) 


Each input case requires a title card. Column 1 for the first case must contain 
al. The “Namelist” input must be preceded by an & INPUT starting in column 
2 and followed by an & END starting in column 2. The ‘‘Namelist” input 
(Columns 2-80) required for each case is presented in Figure 15. Each input 
must be separated by a comma (see Figure 18). The ratio calculations, plot 
setup and frequency selection must follow the first input case. For additional 
input cases, follow the frequency selection cards with a blank card and then 
the additional title cards and input cases. Only those parameters that differ 
from the previous case must be input. For the additional input cases, if column 
1 of the title card contains a 1, the ratio calculations, plot seti.p and frequency 
selection will be the same as the preceding case. If column 1 of the title card 
contains a 0, new ratio calculations, plot setup and frequency selection may 

be input. 


Additional ratio calculations may be performed by inputting the parameter 
identification numbers as indicated in Figure 18. Up to 40 ratios may be 
calculated and these ratios will automatically be included in the tabular out- 
put. The parameter identification numbers are presented in Figure 19. One 
blank field will terminate this type input. If columns 71-75 are used, a blank 
card must follow. 

Calcomp plots of any rumble model output parameter may be obtained by 
inputting one card for each parameter as described below. A maximum of 
10 plots may be requested for any case. A blank card must be input to 
terminate plot requests or if no plots are desired. 

Column 1- 3-— Output Parameter No., right adjusted (integer; no decimal) 
Column 11 - 20 — Amplitude Option (decimal required ) 

Column 21 - 30 — Phase Option (decimal required ) 

Column 31 - 40 — Frequency Option (decimal required) 

Column 41 - 50 — Amplitude Factor (decimal required ) 

Column 51 - 60 — Frequency Factor (decimal required) 


Column 61 - 70 — XMIN (decimal required ) 


Column 71 - 80 — XMAX (decimal required ) 
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Output Parameter Parameter Identification 


Name Number 
ee SS 

Pi 1 
v1 2 
R1 3 
P2 4 
v2 § 
R2 6 
P3 7 
V3 8 
R3 9 
P3H 10 
V3H 11 
R3H 12 
P2H 13 
V2H 14 
R2H 15 
QIN 16 
W3 17 
W3H 18 
QOUT 19 
P4 20 
V4 21 
R4 22 
P5 23 
V5 24 
R5 25 
P6 26 
V6 27 
R6 28 
P7 2 

V7 30 
R7 31 
P8 32 
V8 33 
R8 34 
P9 35 
vg 36 
R9 37 
P10 38 
V10 39 
R10 40 
P11 41 
V11 42 
R11 sy a 43 


Note: P1 = P1/Qiy: = (AP4/P4)/(SQixy/Qi_y) Same for Other Output Parameters 


FD 151092 
7ayat 
gn2.443 


Figure 19. Parameter Identification Numbers 


@ Output Parameter No, 


A list of output parameter identification numbers is presented in Figure 19. If 
any of the additional ratio calculations (described above) are to be plotted, 
parameter identification numbers starting at 101 and incremented by 1 are used. 
The parameter identification numbers must be right adjusted in columns 1-3. 


@ Amplitude Option 


If Amplitude Option = 0., Log (amplitude) will be plotted. 
If Amplitude Option = 1., Amplitude will be plotted. 


Phase Option 


if Phase Option = 0., Phase angle of 0 to —360 will be plotted. 
If Phase Option = 1., Phase angle of 180 to -180 will be plotted, 


@ Frequency Option 


If Frequency Option = 0., Log (Frequency ) will be plotted. 
If Frequency Option = 1., Frequency will be plotted. 


@ Amplitude Factor 


If Amplitude Option = 0., the Amplitude Factor must be input as a number 
which could be written as 10N, where N = (+) integer. Log (Amplitude Factor) 
will be added to the base Log amplitude scale, where the base Log amplitude 
scale ranges from —1.0 to 2.0. 


If Amplitude Option = 1., the Amplitude Factor becomes a multiplier for the 
base amplitude scale, where the base amplitude scale ranges from 0. to 3.0. 


@ Frequency Factor 


If Frequency Option = 0., the Frequency Factor must be input as a number 
which could be written as 10N, where N = (+) integer. Frequency factor will 
be a multiplier for the base frequency scale, where the base frequency scale 
ranges from .1 to 100. 


If Frequency Option = 1., the Frequency Factor will be a multiplier for the 
base frequency scale, where the base frequency scale ranges from 0. to 100., 
unless XMIN and XMAX are input. XMIN is the minimum value for the 
frequency scale when Frequency Option = 1. XMAX is the maximum value 
for the frequency scale when Frequency Option = 1. If either Amplitude 
Factor or Frequency Factor is input at 0. when XMIN and XMAX are input, 
the program automatically sets Amplitude Factor or Frequency Factor to 1. 
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(4) The frequencies used in the program calculations are input in two parts. First, 
there are three cards which contain the minimum frequency, increment and 
maximum frequency (see Figure 18). The increment is used to determine each 
frequency for the range defined. Additional independent frequencies (up to 
500 values) may be input in fields of 10, 7 fields per card. A field containing 
-1. will terminate this input. If the 7th field of the last card is used, an 
additional card with —-1. in the first field is required. 


(5) The rumble model has been set up to model a turbofan engine with a mixed 
flow augmentor. To model a turbojet (no fan), set BPR = 0 and NFSOP = 1. 
To model a fan duct augmentor (separate fan and core flows), set BPR = 1010 
and NFSOP = 1. 


7. OUTPUT 
a. General 


The program output is presented in two parts: (1) rumble model output and (2) 
flameholder combustion model output. There are two rumble model output options: 
(1) NPRNTR = 0, the program provides both ramble model tabular output and Open Loop 
Transfer Function plots or (2) NPRNTR = 1, the program provides only Open Loop Trans- 
fer Function plots. There are also two flameholder combustion model output options: 
(1) NPRNTF = 0, the program provides limited flameholder combustion model tabular 
output and (2) NPRNTF = 1, the program provides full flameholder combustion model 
tabular output. \ 


b. Output Description 


(1) Rumble mode] tabular output (listed in the order they appear): 


Parameter(s) Description 
NAMELIST INPUT The ‘‘namelist”’ input parameters and the 


values input are listed for verification. 


KNOZ A parameter that relates the influence of 
pressure at STA 11 on velocity at STA 
11, dimensionless. 


FAAB Augmentor overall fuel-air ratio, dimensionless. 
ETAAB Augmentor overall efficiency, dimensionless. 
DTIAB Augmentor overall ideal temperature rise, 
deg. R. 
DTAB Augrientor overall actual temperature rise, 
deg. R. 
T6M Augmentor mixed temperature before com- 


bustion (STA 3), deg. R. 


wet ge lh Ne RT Ath 


a 


Parameter(s) 


TKC 


XLHV 


DTC 


QCQT 


DTIC 


TAUDC 


DTH 


QHQT 


DTIH 


TAUDH 


ZTFC 


ZTFH 


L (1-11) 
YL (1-11) 
C (1-11) 


CH 


M (1-11) 


ee ee 


Description 


Augmentor mixed exhaust temperature 
(STA 10), deg. R. 


Lower heating value for the fuel selected, 
Btu/lbm. 


Fan stream temperature rise, deg. R. 


Fraction of total heat release contributed 
to fan stream, dimensionless. 


Fan stream ideal temperature rise, deg. R. 


Fan stream drift delay from spraybar to 
flameholder, sec. 


Core stream temperature rise, deg. R. 


Fraction of total heat release contributed 
by core stream, dimensionless. 


Core stream ideal temperature rise, deg. R. 


Core stream drift delay from spraybar to 
flameholder, sec. 


Normalized slope, augmentor fan stream 
ideal temperature rise vs. fan stream fuel- 
air ratio, 

FAC dDTIC 


DTIC dFAC 


, dimensionless. 


Normalized slope, augmer.tor core stream 
ideal temperature rise vs. core stream fue!- 
air ratio, 

FAH dDTIH 


DTIH dFAH 


, dimensionless. 


Distance between model stations, inches. 


Station locations references to STA 1, inches. 


Velocity of sound at each station, in./sec. 


Velocity of sound in core stream at 
STA 3H, in./sec. 


Mach number at each station, dimensions. 
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Parameter(s) 


MH 


T (1-11) 
TH 


PRHOT 


G (1-11) 


GH 


TAUF (1-11) 


TAUFH 


TAUG (1-11) 


TAUGH 


TAUE (1-11) 


TAUEH 


QOP (1-11) 


(2) Rumble model Open Loop Transfer Function plots. Each plot consists of Open 
Loop Transfer Function Gain versus frequency and phase angle versus frequency 


for the parameters selected. 


(3) Flameholder combustion model full tabular output. 


Parameter(s) 
Fan Stream 
Streamtube type 


No. of this type 


eee ye een — wow eee 


Description 


Mach number in core stream at STA 3H, 


dimensionless. 


Temperature at each station, deg. R. 


Temperature in core stream at STA 3H, deg. R. 


Pressure drop through combustion zone 


(STA 5- STA 10), psia. 


Ratio of specific heats at each station, 


dimensionless. 


Ratio of specific heats in core stream at 


STA 3H, dimensionless. 


Time delays for downstream running sonic 
waves between stations, sec. 


Time delay for downstream running sonic 
wave between STA 2H and 3H, sec. 


Time delays for upstream running sonic 
waves between stations, sec. 


Time delay for upstream running sonic: 
wave between STA 2H and 3H, sec. 


Time delays for downstream running entropy 
waves between stations, sec. 


Time delay for downstream running entropy 
wave between STA 2H and 3H, sec. 


Ratio of volumetric heat release rate at each 
station to pressure at each station, 1/sec. 


Description 


Identifies following sections as fan duct output. 


Identifies for this set of input variables. 


The number of streamtubes with this set of 


input variables. 


Parameter(s) 

Static Pressure (PS6) 
Approach Temperature (T6C) 
Approach Mach No. (M6C) 
Input FA Ratio (FAC) 


Effective FA Ratio 


F/H Width (FHWC) 


Blockage Ratio (TAUC) 


F/H Apex Angle (ALPHAC) 


S/R Fuel Temperature (TFSR) 


S/R Fuel Pressure (PFSR) 


S/R to F/H Distance (LSC) 
F/H to Nozzle Distance (XLC) 
Turbulence Level (EPSC) 


Wake Flow Addition (WEXT) 


Flow Source Temperature (TEXT) 


Effective Inlet Temperature 


Fuel Type (JFUEL) 


Mean droplet size 


Flash vaporization 


Description 
Inlet static pressure, psia. 
Inlet temperature, deg. R. 
Inlet flow Mach No., d’less. 
inlet fuel-air ratio, d’less. 


Effective fuel-air ratio accounting for liner 
cooling air flow. 


Flameholder width, inches. 


Ratio of flameholder width to streamtube 
width, d’less. 


V-gutter flameholder apex angle, degrees. 


Temperature of the fuel within sprayring, 
deg. R. 


Pressure of the fuel within the sprayring, psia. 


Axial separation distance between the spray- 
ring and the flameholder, inches. 


Axial distance from the flameholder to the 
exhaust nozzle throat, inches. 


Ratio of RMS turbulence velocity to the 
approach velocity at the inlet, d’less. 


Ratio of external wake flow to recirculated 
flow, d’less. 


Temperature of above flow, deg. R. 


Mass average of WEXT flow at TEXT and 
recirculated flow at T6C, deg. R. 


Identifies for fuel 
1 = JP4 
2=JP5 


The mass median droplet size produced by 
the injector, microns. 


Fraction of the liquid fuel which is vaporized 


by injection from PFSR to PS6, d’less. 
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Parameter(s) 
Beta 1 

Beta 2 

Beta 3 

K1 


Wake FA 
Wake temperature 
Initial speed 


Initial turbulence 


Ideal temperature rise 
Efficiency 

Actual temperature rise 
Exit temperature 


Flowrate — air 
Flowrate — fuel 


Cooling flow/total engine 
flow (WCOOL) 


Chemical combustion efficiency 


Thermal combustion efficiency 


Average cooling air temperature 


Average streamline exit 
temperature 


Description 
Droplet vaporization fraction. 
Droplet collection fraction. 
Surface vaporization fraction. 
Recirculation fraction. 


Flameholder wake vapor phase fuel-air 
ratio, d’less. 


Reaction temperature in the flameholder 
wake, deg. R. 


Laminar flame speed at the flameholder, 
ft/sec. 


Turbulence intensity at the flameholder, d’less. 


Ideal temperature rise for effective fuel-air 
ratio, deg. R. 


Streamtube combustion efficiency; ratio of 
flame penetration to streamtube width, d’less. 


Efficiency times ideal temperature rise, 
deg. R. 


Streamtube exit temperature without liner 
cooling air, deg. R. 


Air flowrate for this streamtube, lbm/sec. 
Fuel flowrate for this streamtube, l|bm/sec. 


Ratio of liner cooling air flowrate to total 
engine flowrate, d’less. 


Average efficiency based on average stream- 
tube exit temperature and average effective 
fuel-air ratio, d’less. 


Average efficiency based on streamtube 
average exit temperature plus cooling air 
and average input fuel-air ratio, d’less. 


Mass averaged inlet temperature used for 
cooling, deg. R. 


Mass average of the streamtubes without 
cooling air, deg. R. 
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Parameter(s) 


Average duct exit temperature 
Total flowrate 


Average fuel-air ratio 


Core Stream 

Wake recirculation coefficient 
Ideal temperature rise 

M/B Fuel-air ratio 

M/B Inlet temperature 


Average distance from spraybar 
to F/H 


Description 


Mass average of streamtubes plus cooling 
air, deg. R. 


Total of each streamtube type times the 
number of each type, |bm/sec. 


Mass average of the input fuel-air ratios. 


Identified following sections as core 
stream output. 


Same as K1 in fan duct, d’less. 
Ideal temperature rise based on input 
fuel-air ratio and main burner fuel-air 


ratio. See Appendix B. 


Fuel-air ratio of the vitiated air entering 
the core streamtubes. 


Inlet temperature to the main burner, d’less. 


Average axial distance from the spraybars 
to the flameholders, inches. 


Note: Any core stream parameters which are not listed above have the same 
definition as their fan stream counterpart. 


(4) Flameholder combustion model limited tabular output. 


Parameter(s) 


Fan stream 


Inlet temperature (T6C) 
Fuel-air ratio (FAC) 
Average inlet temperature 


Ideal temperature rise 


Combustion efficiency 


Exit temperature 


Average ideal temperature rise 


Description 


Identifies following as fan stream cases input 
and output. 


Streamtube inlet temperature, deg. R. 
Input fuel-air ratio, d’less. 
Mass averaged inlet temperature, deg. R. 


Streamtube ideal temperature rise based 
on effective fuel-air ratio, deg. R. 


Streamtube combustion efficiency, d’less. 


Streamtube exit temperature based on 
effective fuel-air ratio, deg. R. 


Ideal temperature rise based on average 
input fuel-air ratio, deg. R. 
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Parameter(s) 


Average combustion efficiency 


Average exit temperature 
Core Stream 
Mach No. 


Average ideal temperature rise 


Average combustion efficiency 


Average exit temperature 


8. PROGRAM MESSAGES AND LIMITS 


a. Input Checks 


Description 


Efficiency based on average ideal temperature 
rise with cooling air effect included, d’less. 


Exit temperature including cooling air, deg. R. 
Identifies following as core stream section. 
Streamtube inlet flow Mach number, d’less. 


Ideal temperature rise based on average input 
fuel-air ratio, deg. R. 


Efficiency based on average temperature rise 
and average ideal temperature rise, d’less. 


Exit temperature based on mass averaged 
actual temperature rise, deg. R. 


The program checks all inputs to see if the inputs are missing or equal the default 
values built into the deck. Missing inputs are set equal to the default values. A warning 
message (presented below) is printed to alert the user if default input values are identified. 


The program also checks specific inputs to ensure reasonable input data. If these checks are 


not satisfied, the run will be canceled. These checks and corresponding print-out messages 


are presented below: 
Condition 
Input value = default value 
or no input for certain 


parameter 


LA < LB, where LK and LB are 
Rumble Model Inputs 


LK > LB, where LK and LB are 
Rumble Model Inputs 


LA < LCALC, where 
LCALC = LB + MAX (LSC, LSH) 


LI > LK 


LC < L2 


Message 


WARNING — PARAMETER XXXXXX = 
YYY.Y is a default value 


INPUT ERROR 1 — LA must be greater 
than or equal to LB 


INPUT ERROR 2 — LB must be greater 
than or equal to LK 


INPUT ERROR 3 — LA must be greater 

than or equal to the sum of LB plus the 

max of LSC or LSH. LA has been adjusted 
accordingly. Check input. 

INPUT ERROR 4 — LI must be less than LK. 


INPUT ERROR 5 — LC must be greater 
than or equal to L2 
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Condition 


ETA < Oor> 1. 

ETAC < Oor> 1. 
ETAH < Oor> 1. 
(FAC + FAH) = 0 


[FAV + (1 + FAV) FAH] 
XLHV 
18500. 


: XLHV 
or if (FAC) 2 .09 


18500. 


NFSOP = 2 and BPR = 0. 


DPCS < Oor> 1. 


DPD < Oor > 1. 


DPH < 0 or > 1. 


DPHS < Oor > 1. 


DPS < Oor> 1. 


T3H 2 2200. 


BPR < 0. 


FAV < 0. 


NAUGOP < 0. or > 3. 


Message 


INPUT ERROR 6 — ETA must be between 
0 and 1. 


INPUT ERROR 7 — ETAC must be between 
0 and 1. 


INPUT ERROR 8 — ETAH must be between 
0 and 1. 


INPUT ERROR 9 — FAC and FAH cannot 
both be zero with augmentor on. 


INPUT ERROR 10 — Core of fan stream 


totoal fuel-air ratio exceeds limits of ideal 
temperature rise curve. Blowout likely. 


INPUT ERROR 11 — BPR cannot be zero 


when the remote flow splitter option is selected. 


INPUT ERROR 12 — DPCS must be 
between 0 and 1. 


INPUT ERROR 13 — DPD must be between 
0 and 1. 


INPUT ERROR 14 — DPH must be between 
0 and 1. 


INPUT ERROR 15 — DPHS must be between 
0 and 1. 


INPUT ERROR 16 — DPS must be bet weer: 
0 and 1. 


INPUT ERROR 17 — T3H exceeds limits of 
ideal temperature rise curve. T3H must be 


less than 2200. deg-R. 


INPUT ERROR 18 — BPR must be equal to 
or greater than 0. 


INPUT ERROR 19 — FAV must be equal to 
or greater than 0. 


INPUT ERROR 20 — NAUGOP must be 
1, 2 or 3. 
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Condition 


NFSOP < 0 or > 2. 


NCOMOP < O or > 3. 


JFUEL < 0 or > 2. 


NPRNTR < O or > 1. 


NPRNTF < O or > 1. 


M6C < 0 


M6H < 0 


M6R < 0 


LI< 0 


LK < 0 


LSC < 0 or? LA 


LSH < 0 or 2 LA 


LH < 0 


L2< 0 


TCORE < 0 


Messages 
INPUT ERROR 21 — NFSOP must be 1 or 2. 


INPUT ERROR 22 — NCOMOP must be 
1 Bors. 


INPUT ERROR 23 — JFUEL must be 1 or 2. 
INPUT ERROR 24 — NPRNTR must be 0 or 1. 
INPUT ERROR 25 — NPRNTF must be 0 or 1. 


INPUT ERROR 26 — M6C must be greater 
than 0. 


INPUT ERROR 27 — M6H must be greater 
than 0. 


INPUT ERROR 28 — M6R must be greater 
than 0. 


INPUT ERROR 29 — LI must be equal to 
or greater than 0. 


INPUT ERROR 30 — LK must be greater 
than 0. 


INPUT ERROR 31 — LA must be greater 
than 0. 


INPUT ERROR 32 — LB must be greater 
than 0. 


INPUT ERROR 33 — LC must be greater 
than 0. 


INPUT ERROR 34 — LSC must be greater 
than 0 and less than LA. 


INPUT ERROR 35 — LSH must be greater 
than O and less than LA. 


INPUT ERROR 36 — LH must be greater 
than 0. 


INPUT ERROR 37 — L2 must be greater 
than or equal to 0. 


INPUT ERROR 38 — TCORE must be equal 
to or greater than 0. 


a — omer 


Condition 


PS6 < 0 


T6C< 0 


T6H < 0 


T3H < 460. 


FA <0 


FAC <0 


FAH < 0 


PRNOZ < 1 


ALPHAC (100) < 0 or > 180 


ALPHAH (100) < 0 or > 180 


EPSC < Oor>1 


EPSH < Oor> 1 


FAC (100) < 0 


FAH (100) < 0 


FAV > .068 


FHWC (100) < 0. 


Messages 


INPUT ERROR 39 — PS6 must be greater 
than 0. 


INPUT ERROR 40 — T6C must be greater 
than 0. 


INPUT ERROR 41 — T6H must be greater 
than 0. 


INPUT ERROR 42 — T3H must be greater 
than 460. 


INPUT ERROR 43 — FA must be greater 
than or equal to 0. 


INPUT ERROR 44 — FAC must be greater 
than or equal to 0. 


INPUT ERROR 45 — FAH must be greater 
than or equal to 0. 


INPUT ERROR 46 — PRNOZ must be 
greater than 1. 


(INPUT ERROR 47 — ALPHAC must be 
greater than 0 and less than or equal to 
180 deg. 


INPUT ERROR 48 — ALPHAH must be 
greater than 0 and less than or equal to 
180 deg. 


INPUT ERROR 49 — EPSC must be greater 
than or equal to zero and less than or equal 
to 1. 


INPUT ERROR 50 — EPSH must be greater 
than or equal to zero and less than or equal 
to 1. 


INPUT ERROR 51 — FAC must be greater 
than zero. 


INPUT ERROR 52. FAH must be greater 
than zero. 


INPUT ERROR 53 — FAV cannot exceed 
stoichiometric (.068). 


INPUT ERROR 54 — FHWC must be greater 
than zero. 


45 


rs 1 ROR -- 
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Condition 


FHWH (100) < 0. 
LSC (100) < 0 or > LA 
LSH (100) < 0 or 2 LA 


M6C 
1 — TAUC (100) ~ 


> 


M6H " 
1 — TAUH (100) ~ 


NSC (100) < 0 or > 100. 
NSH (100) < 0 or > 100. 
NTC < 0 or > 100. 

NTH < 0 or > 100. 
PFSR (100) < PS6 
TAUC (100) < 0 or > 1. 
TAUH (100) < O or? 1. 
TEXT (100) < 460. 
TFSR (100) < 460. 

T6C (100) < 460. 

T6H (100) < 460. 


WEXT (100) < 0 


Messages 


INPUT ERROR 55 — FHWH must be greater 
than zero. 


INPUT ERROR 56 — LSC must be greater than 
zero and less than LA. 


INPUT ERROR 57 — LSH must be greater than 
zero and less than LA: 


INPUT ERROR 58 — Flow is supersonic in 
fan stream at the flameholder plane. 


INPUT ERROR 59 — Flow is supersonic in 
core stream at the flameholder plane. 


INPUT ERROR 60 — NSC must be greater than 
or equal to zero and less than or equal to 100. 


INPUT ERROR 61 — NSH must be greater than 
or equal to zero and less than or equal to 100. 


INPUT ERROR 62 — NTC must be greater than 
or equal to zero and less than or equal to 100. 


INPUT ERROR 63 — N'TH must be greater than 
or equal to zero and less than or equal to 100. 


INPUT ERROR 64 — PFSR must be greater 
than PS6. 


INPUT ERROR 65 — TAUC must be greater 
than 0 and less than 1. 


INPUT ERROR 66 — TAUH must be greater 
than 0 and less than 1. 


INPUT ERROR 67 — TEXT must be greater 
than or equal to 460. 


INPUT ERROR 68 — TFSR must be greater 
than or equal to 460. deg. R. 


INPUT ERROR 69 — T6C must be greater 
than 460. 


INPUT ERROR 70 — T6H must be greater 
than 460. 


INPUT ERROR 71 — WEXT must be greater 
than or equal to zero. 
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Condition Messages 

XLC (100) < 0 INPUT ERROR 72 — XLC must be greater 
than zero. 

XLH (100) < 0 INPUT ERROR 73 — XLH must be greater 
than zero. 

WCOOL < 0. or 2 1. INPUT ERROR 74 — WCOOL must be 


greater than or equal to 0. and less than 1. 
b. Calculation Failure Messages for Fiameholder Combustion Model 


The Flameholder Combustion Model program checks for specific calculation failures. 
The causes and corresponding messages are presented below: 


Message Cause 

Warning *** wake temperature The calculated value of the fan duct flame- 
iteration failed for streamtube holder wake fuel-air ratio exceeds the rich 
No. XX limit at the inlet conditions for this stream- 


tube. This streamtube case has failed. 


Aerodynamic loading exceeds The inlet values of velocity, ;ressure, and 

kinetic capacity temperature produce a wake toading which 
exceeds the reaction limit at this fuel-air 
ratio. This streamtube case has failed. 


All fuel vaporized--terminate The injection process has resulted in only 

case vapor fuel. Run this input as a core case 
if desired. 

Overall fuel-air ratio below The input fuel-air ratio is less than the 

lean limit calculated minimum value for flame 


propagation in the fan stream. 


FAR outside flammability The input fuel-air ratio is outside the limits 

limits of the data for laminar flame speed built 
into the program. Currently set at .027 lean 
and .120 rich limit fuel-air ratios. 


9. PROGRAM LISTINGS 


Listings of the computer program formulation are provided in Appendix C. 


10. 


SS eee eee eee eee eee eee 
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11 


12 


13 


TEST CASES 


The test cases are provided in Appendix D as outlined below: 


Rumble 


Rumble 


Rumble 


Rumble 


Rumble 


Rumble 


Rumble 


Rumble 


Flameholder 


Combustion 


Flameholder 
Combustion 


Flameholder 
Combustion 
With Wake 
Heat Addition 


V-gutter F/H 


V-gutter F/H 


V-gutter F/H 


V-gutter F/H 


V-gutter F/H 


V-gutter F/H 


Vorbix 


Vorbix 


Swirl 


Swirl 


V-gutter F/H 


V-gutter F/H 


V-gutter F/H 


Flow Splitter 


Proximate 


Remote 


Proximate 


Remote 


Proximate 


Proximate 


Proximate 


Remote 


Proximate 


Remote 


Combustion 
Data 
Source 


Flameholder 
Comb. Model 


Flameholder 


Comb. Model 


Empirical 


Empirical 


Empirical 


Empirical 


Empirical 


Empirical 


Empirical 


Empirical 


*Copy of output deleted due to similarity with other output. 


JP4 


JP4 


JP5 


JP4 


JP4 


JP4 


JP4 


JP4 


JP4 


JP5 


JP4 


i} 
“ 


Rumble 


Output Output 


Tab & Full Tab 
Plot 


Full Tab 


F/H Comb. 


a Beas 


11. PROGRAM IDENTIFICATION AND REVISION PROCEDURE 


a. CCD Number 


Customer Computer Decks (CCD’s) are identified by a CCD number and date. An ex- 
ample is CCD 1001-0.0 November 15, 1969. 


The CCD number consists of: 
e Basic number (first four digits) 
@ Dash (or change) number 
@ Decimal (or addition/correction) number. 
(1) Basic Number 

This four-digit number generally corresponds to a given program. If another method is 
developed or studied which does not replace or supersede the original, a new four-digit 
number is issued. 

(2) Dash Number 

Major changes in the program are reflected in different dash numbers. A change in tech- 
niques or mathematical methods would produce a new dash number provided the new tech- 
niques replace or change the old techniques. For more than nine changes, the dash number 
shifts to letters. The dash number of the original program is zero. 

(3) Decimal Number 
The decimal is used for all other program changes such as: 
e Adding new optional routines 
¢ A change to the FORTRAN source language due to compute” differences 
© Correcting a mistake in the program 
e@ input and output changes 
e Adding unique customer oriented curves or initialization data. 

In most cases a decimal number change is made and documented by writing an ad- 
dendum to the user’s manual without reprinting the user’s manual. An errata or addendum 
to the user’s manual is used in conjunction with a Computer Simulation Change Notice, 
(Figure 20). This notice briefly describes the changes affecting the deck and manual. 

Accompanying the notice is a new manual title page reflecting the new date and/or dash 
or decimal changes. The SCN also includes the change pages with black bars in the right-hand 


margin opposite data changed and a new date in the upper right-hand corner. 


Programs revised by the user without written consent of the supplier are the responsi- 
bility of the user. 
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eee —~ 


Date 


Engine or Component Designation 


User's Manual No. 


Customer Computer Deck No. 


Deck and User's Designation is Changed to: 


Dated: 
Change Nature: r] Errata C] Addendum Changes Effect: CJ Deck i Manual 
Change: Reason: 


Detailed Reasons for Changes are Shown in Enclosure 


 —— — 


Approval: 


Program Office 


Systems Stability and Control 
C. H. Borgmeyer 


FO 151091 


Figure 20. Computer Simulation Change Notice 


781411 
gn2-444 


APPENDIX A 
DEVELOPMENT OF RUMBLE MODEL EQUATIONS 


1. DEVELOPMENT OF ACOUSTIC EQUATIONS 


In this section equations are developed to describe how velocity, pressure and density 
at every point in the augmentor respond to a combustion disturbance, which is treated as a 
heat input to a flowing invicid ideal gas stream. Knowing how these three parameters 
(velocity, pressure, density) respond allows calculation of any other parameter needed, such 
as mass flowrate or temperature. The first equations to be developed are the three longitu- 
dinal wave equations, which are applicable between boundaries and discontinuities. Then 
equations for the boundaries and discontinuities are developed. The wave equations plus 
the boundary and discontinuity equations are referred to as the ‘“‘acoustic” equations. The 
“combustion’’ equations needed to complete the rumble model are developed in paragraph 
2 of this appendix. 


Symbols used below are defined in the list of symbols. For any section of augmentor 
with rigid walls and constant cross-sectional area, such as shown in Figure 21, through which 
an invicid fluid (viscosity is zero) is flowing, the one-dimensional momentum, continuity and 
energy equations are: 


Px ax a (1) 
~PV ay , Pp au, , wu 
p ax p at ax at 


For an ideal gas, these equations reduce to the following non-linear wave equations: 


ae so re Poe oe 
wey [$2 +E tite Tel ~ YP 


Le gf) 4) £2 oe 
w-o) | Z2-34 +L Pa C at 


Le. te | | 5 ee | scat 
viz sus ' LFu pe Dp 


The wave equations are linearized by the small perturbation substitutions: 


(2) 


| 
> 
! 
J, 
a] 


P(x,t) = P(x) + AP(x,t) 
p(s,t) = p(x) + Ap(x,t) (3) 


C(x,t) = C(x) + AC(x,t) 
Vix,t) = V(x) + AV(x,t) 
q(x,t) = G(x) + Aq(x,t) 


Second order terms are neglected in making the substitutions. 
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Ignition End Temp 


Plane Rise 
Fan Side 
Fan Fan Duct Mixing | Begin Temp | Exhaust 
Discharge AP/P Loss Plane | Rise Nozzle 


\ 
V —gutter, Swirl or I 


| 
! &— Combustion —| 
Vorbix Hardware 2H) Gr) Zone 


Core Side 
Mixing Plane 


Turbine Sos 
Discharge 783110 
2-788 


Figure 21. Rumble Model Station Identification 


To simplify notation, the following substitutions are made which normalize the change 
in each variable by its steady-state value: 


». Aq (4) 
q 


The linearized version of equations (2) becomes: 


ye ee ee ee ee ae 
(V+C) mi P+ ym} + st P+ ymv| + (y-1) p br = (yD 4 
a ye KAY" a 5 aes Go 5 SPE 
(V—C) 2| p—ymav] + af p— mv] + (71) p Bc = Da (5) 


a ‘ a y , q , q ‘ 
¢2| Pa] + Af Pay] + (yD) F Be =“) Fa 


where: 
by = abe | P’ (1-M~—M?) + pM + v4 £42 M-M?[1 + (1+M) ] ] 
" =a ie: 2! f 
(6) 
Be | P (1+M-M) + pM + v4 1.2 gw li + M) +] }] 
: (1—M?) 2 2 : 2 
Be =P + V’ 
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Taking the Laplace transform with respect to time, with zero initial conditions, and 
letting subscripts 1 and 2 stand for the upstream and downstream stations respectively 
(see Figure 21), the general solution to equations (5) becomes: 


‘ga dx 
*) V4 y-) 4 ss 
[P; + yM,V;j] e ~ (PityMivil +25 IB ils) Ge iy 
a} oe 
t ‘ + 
a ee eee eee 
. S (0) Pp a dx Ki “4 
rs f dx 
‘. ve ) ‘ d 8 v-E 
' ‘ (y-1 ae 
[P; — yM,Vj] e ~ Pi-wMivil +7 JF Bile) Gee = 
(7) 
ait os. 
! We 
nae i oO 
7 a ) f - q‘(x,s) a e dx 
oO 
t 
9 (y-1) ¢ 4 d nf ; 
of & 
y-1) ¢ 4 ; 


d 
Pp q’‘(x,8) ay e dx 


In equations (7) the first equation describes downstream running sonic waves of the form 
Pp’ + yM V’, traveling at sonic speed plus through-flow velocity. The second equation de- 
scribes upstream running sonic waves of the form P’ — yM V’, traveling at sonic speed minus 
through-flow velocity. The third equation describes entropy waves, P’ — yp’, d:ifting down- 

stream at through-flow velocity. | 


The entropy waves become more apparent from the expression for the entropy of an | 
ideal gas: 


BE cia oc aes | 
a ae (8) 


The entropy waves are related to temperature by: 
yT = S' + (y-1)P’ (9) 


It is through equation (9) that the drifting hot and cold combustion products, or entropy 
waves, are accounted for in the rumble model. Temperature changes produced as the 


entropy waves strike the exhaust nozzle create waves which then travel back upstream at 
sonic speed. 


: = - _ a 
ty nt - = = » ees md 


Equations (7) are not useful until the integrals are evaluated, which will require defini- 
tions of V(x), C(X), q(x), P(x) and some assumptions that will allow integration of q'(x, s), 
By (x, s), BG (x, Ss) and BF (x, s). To complete the solution, the augmentor is divided into 


several ‘‘short’’ sections, each of length &, for each of which it can be assumed: 


d P(x) _ 
(a) oe 0 
d T(x) _ 
(b) he sae constant 


(ce) q'(x,t) = a( 0,t- J =) 


(d) oa = constant 


The small static pressure drop in an augmentor justifies assumption (a). A linear temperature 


rise is also a good approximation, which justifies assumption (b). Assumption (c) is the 


equation for a ‘drifting burning particle” releasing heat at a constant volumetric rate as it 

drifts down the augmentor. A more detailed explanation of this assumption will be provided 

in part 2 (Development of Combustion Equations). To justify the constant steady-state heat 
release rate (q), consider the steady-state version of the energy equation (third in equations (2)). 


1 dP 12 | q 
ceo = ees || ee (ory) 
v (44 pie ONS 


With appropriate substitutions, the equation reduces to: 


4. ( Lj aes. 


P A dx P dx 


G 


Since dP = 0 and aT = constant, then 
dx dx 


A _ 20M (Te, ) 
gs constant = y-1 f T; 


For a “short” section of length &, the integration of 6; (x, s) in equations (7) can be carried 


out as follows: 


dx + dx 
re 2 §) “Ts P f 4 FE Tae - 
ee - es x= i “ — 
| P By(x,S) aie e dx p Br(o,8) ) ax e dx 
i dx 
| my RE 
P r ° 
+ + Byll,S) | a e dx 
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(10) 


ee 


ee 


he 


Similar treatment allows integration of BG (x, s) and By, (x, S) in equation (7). To determine 
how “short” a section must be for the solution to be valid, the resulting rumble model was 
exercised repeatedly while decreasing the section length (by adding more stations in the 
combustion zone). As the section length decreases, the result will rapidly approach an exact 
solution. It was found that section lengths shorter than about 20 inches were unnecessary. 


With the above assumptions, equation (7) becomes: 


: * e TS e oa 
[Py + yM.V,'— [P,’ + yM.V;, ‘le 1 (y ie tr, | Poe © Poe 


ms l-e TS FS e TS e (te, + Te, )S 
+ (4-1) Boe, [ at Si = G-1) Fa m, [ a = ee 


(11) 


eS yM.V,' [P.’+ yM.V,’le i (y—1) 


1—e 74,5 
Ba, ae en 


igo] Fey) 


FS (te, +7z,)S (ro, + te )S (to + te)S 
q : l-e bi e vi Ry e ee 

on date pte Jew, [Se I 
} : ; aq . e TES —e TE 5 

(Py - ys] — [PY - wile ~ Gl) = Be, | ase ae ae 


G 1—e~ 72,9 q ; 
- (y= 1) * ‘(| | =i 8) 3 qi TE e TeS 
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ye = 2 


ee 


where: J ( ee : ( ae , ( dx 
ae V+C ee ee 
12 
/2 /2 /2 ( ) 
- f —& a f dx ac dx 
rr vc eae MS i: my Fe | 
Tr Tr Tr, Te Te Te, ) 
1 : 1 3 
Br, TM P; (1—-M,—M?) + piM, + V; > + 9 M, M? | 1 + (1+M,) x| | | 
8 P; 0-M,-My + pit, +; {442 ,—we | 1+ army] } 
Fy a M2) 2 2 2 Paivte 2 9 2 2 2 meal “9 f 
; 
1 P : E 1 3 ; 
Bo, (1-M) P; (1+M,—M?) aMy + Vi 4 a | M,—M? [ Reset m,) 2 | if | 
eS Se me 1. 
Bo, (1M) | P; (1+M,—My3) pool, + V5. 4 eos M,- M3 1 + (I—M,) J | ( | 


Br, = Pi + V 


ae 


Pe, = Ps + Ve 


For convenience in programming equations (11) on the computer, the following identity 
substitutions were made: 


B's, = PF, PY, + RF», + VFLVY 
B'y, = PF, P’, + RFip', + VF.Vy 

(14) 
A, = PG, P, + RG’, + VG.V, 


B'c, = PG, P, + RGy', + VGV, 


where by definition: 


1 


es —_M—M2 
PF, (1—M?) {1 M, Mi] 
M 
~ = pee) ae 
RF. = “q—Mi 


aia: eA ee 
este oil wae 1+ (1+M,) > 


ay 2 
PF, (1—M3?) {1 M, M3] 
S M 
as (1—M} 
sae fae :| x]} 
VF, = Tim | oto Ms Mi 1 + (1+M,) 9 
1 (15) 
PG, (Mi {1—M,—M?] 
: M 
Bn 
\ 
eee ee a tee | x]} 
VG, = aM? {4 9 M,—M?] 1 + (1 M,) > 
4 
a Me 1 
PG, = (iM) {1 + M,—M3} 
— —~M 
RG, = ap 
ae u ‘aan ae | x| } 
VG, = (Mi) 2 2 M,—Mi?| 1 + (1—M,) 7) 
The time constants in equations (12) were evaluated based upon the steady-state 
through-flow and sonic speed profiles created by the linear temperature gradient. 
T x 
eee een 
, (x) = V, 1+ 7 1 : 
(16) 
T,-T x | 
Cc = + ( 2 1 ) aan 
ek : 3 t 
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Then the time constants in equations (12) become: 


JC, 2 | 
{ Ty em) ™, im - 
| — l 
| r. 
b iC, 2 [ 1—M, 
7 n = — ~ 
1-M, VJ T/T, 


Tp 7 wer or" | a 
a ean 


(17) 


5 ea ee | 1+M.J/ % +T/T)) 
"1 (2 ) M, 1+M, 
tT. l 


1—M, 1 


ae ae 
! (a ) M, 


This completes the development of the wave equations. 


n [a +T,/T,)| 


Tr 


Equations (11) are applied throughout the augmentor between any two stations 
between which there is no discontinuity. In applying the equations, the general subscripts 1 
and 2 are replaced by the actual upstream and downstream station numbers, respectively. 
Referring to Figure 21, they are applied between stations (1) - (2), (2) - (3), (4) - (5), 

(5)- (10) and (10)- (11). Between stations (1) through (5) and between stations (10) - (11) 
there is no heat addition, and so the heat addition terms q/P are set to zero. The heat ad- 
dition terms for the combustion zone, stations (5) - (10), are discussed in paragraph 2 of this 
appendix. 


Discontinuities occur at the pressure drop locations, stations (2) and (3). These are 
modeled as small incompressible resistive pressure drops of zero length. The continuity and 
energy equations are also applied. Referring to Figure 21, across a pressure drop: 


Pa V,? 


P,-P,~ 2 


2 


The equations are linearized and normalized as before to yield: 


vi -[ 1- (2g) Jr -( 25P) oitava 


pa + Vi = ps + Vs 


(19) 


P; — ps = Ps — os 


in applying equations (19) to a given pressure drop, the general subscripts 2 and 3 are re- 
placed by the actual upstream and downstream station numbers, respectively. For con- 
venience in programming, equations (19) were combined with the wave equations (11) to 
eliminate the need for two stations at each pressure drop. It is the combined equations 
which appear in the rumble model listing. 


A junction occurs where the core stream and fan stream enter the augmentor and form 
the overal] augmentor stream (stations (3), (8H) and (4) ). Again applying continuity, 
momentum and energy: 


W, + Way = W, 
(FE) vane » (AYE) 
Pp FAN SIDE P FAN SIDE (20) 
OR OR 
CORE SIDE CORE SIDE 


WsTs + Wau Tar = WsTy 
The linearized and normalized versions become: 


re [1-( 22) |r 2 ( Bg) BB) ¥ 
+( Be) (BEBE) oi + 2( PEN st) ve 


+( eet ) ( 1 ) ied (21) 


(PP) ( BeBe) oc + 2( PsP) oe) es 


+ ( te) (— ) Psi 


kb [ BPR (T/T) |e P [ BPR (TyTw) | 
ere” Le went 27° 1 + BPR (TyTu) 


A 
i+ BPR (T/T, J?™ + | T¥BPRIUT/To 
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For the Swirl augmentor, the momentum equations at stations (3) - (4) and (3H) - (4) 
are modified to account for the possibility of different pressure drops across the fan and core 
swirl vanes. The linearized version of the momentum equations for the Swirl augmentor 
becomes: 


vi -[i-(PePe) Jone ( Pehl + (BEM) 


Definition of the upstream and downstream boundary conditions, at the fan and at the noz- 
zle, respectively, will complete the acoustic equations. The fan was assumed to be delivering 
a constant mass flowrate through the fan OD (defined as that portion of the fan between the 
fan splitter and fan tip) and through the fan ID (defined as that portion of the fan between 
the centerline and the fan splitter). It was also assumed that the temperature of the fan dis- 
charge flow could be taken as time invarient (also, because of the low Mach number at fan 
discharge, total and static temperatures can be used interchangeably). To account for the 
presence of a core engine, and explore any possible attendant interaction with fan duct 
acoustics, a simple first order lag representation of the core engine was incorporated into the 
rumble model. The core engine was represented as a compressor delivering constant corrected 
air flow (corrected to compressor face conditions) into a lumped volume. Flow out of the 
volume exited through a choked turbine to emerge at station (3H). The resulting transfer 
function for the core engine is: 


Ww’ 1 ; 
. a ss. aan (23) 
k C a TCORE 5 
Where: 
W sn - mass flowrate at station (3H) 
P’. = static pressure at the compressor face 
TCORE core engine time constant 


A default value of 7cQRE = -005 seconds is built into the rumble model. A different value 
can be input by the user, and is calculated as the mass of air in the core engine volume di- 
vided by the mass flowrate of air through the core engine. Proximity of the fan splitter to 
fan discharge also affects the boundary condition at the fan. Two cases were considered and 
are built into the rumble model (see NFSOP). In the first case, called the “proximate” 
splitter configuration, the fan splitter is assumed to be so close to fan discharge that no com- 
munication can occur between the fan duct and the core engine across the fan splitter. For 
this case, the boundary condition at the fan becomes: 


Wy =p, + Vi =0 (24) 


SS 


In the second case, called the “remote” splitter configuration, the fan splitter is as- 
sumed to be sufficiently remote from fan discharge to allow perfect communication between 
the fan duct and the core engine across the fan splitter. For this case, the boundary condition 
at the fan becomes: 


Mo. = Fy 


(25) 


Py 
. aes ee 
W's 1 + Tcore S 


This completes the definition of the upstream boundary condition. It is of interest to 
note that entropy waves are created a sonic wave reflections at the upstream boundary. 
Since an entropy perturbation is S — P| , and at the boundary p\ = P , then 

Si =(1-y) ry: A similar argument aa show that entropy waves are also created at the 
preasure drops" (stations (2) and (3) ). These are automatically accounted for in the rumble 
model, but are of minor importance compared to the entropy waves created in the com- 
bustion zone by combustion disturbances. 


The downstream boundary condition is based upon the presence of a “short” nozzle 
just downstream of station (11), for which: 


W /T,R 


AP =p (Px) (26) 
where: 
Eh i 9 R 
(gre 
: y-1 
*" yt) 
Pp 27 


P, = P, /nozzle throat static pressure 
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When linearized, the downstream boundary condition becomes: 


(27 
Vi -+ (Pys'— pir) + (KNOZ) Py 
where: 
[1 { 244) mt, ]( 222#) 
2 i. pd Px 
NO re ee 
{1 - M,,? (1+ 1 ( 3 
ul ¥ ’ oP 
eas 
PR ad | Paw ao eel i = 
> Pp xy 2 (y-1) Y 
o( Pe oY 1) 
It is also of interest to note that for choked flow, 
+] -1 
Pr >( Ss ) * ’ 
then KNOZ = 0 and: 
; Les , Line; 8 
Vii = Pu — pi) =o Ti (28) 
substituting from equation (16): 
: OP an Ge) ee 
Vii = By 38 — Py; (29) 


This equation directly relates how entropy waves, as well as pressure disturbances, striking a 
choked nozzle will produce a velocity disturbance. 


This completes the acoustic equation development. These equations describe the 
response of pressure, velocity and density throughout the augmentor to a disturbance in 
combustion. Development of the corresponding combustion equations, which describe how 
combustion throughout the augmentor will respond to disturbances in pressure, velocity and 
density, is presented in the following section. 
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2. DEVELOPMENT OF COMBUSTION EQUATIONS 


Development of the combustion equations for the V-gutter flameholder augmentor is 
presented first. Then the combustion equations for Vorbix and Swirl augmentors are 
presented. 


For the V-gutter flameholder augmentor two combustion streams, the fan stream and 
the core stream, are treated. This is necessary to be able to account for the different com- 
bustion characteristics of the fan and core streams. The two streams can have different 
flameholder designs and fuel-air ratios as well as different flameholder approach temperatures 
and velocities, causing the two streams to have different efficiency vs. fuel-air ratio charac- 
teristics. In addition, the fan stream is preceded by a long fan duct which can exhibit lon- 
gitudinal resonance at the low frequencies associated with rumble. The core stream is pre- 
ceded by a short section terminating at turbine discharge, which is much less responsive at 
low frequencies. 


The basic approach taken for the rumble model was to model combustion disturbances 
in the fan and core streams independently, accounting for the individual properties of each 
stream, The resulting two combustion disturbances (calculated as volumetric heat release 
rate disturbances) were then simply added to form a single overall disturbance. The overall 
disturbance was then distributed evenly over the total cross-sectional area of the augmentor, 
which was taken to consist of a single overall stream with mean mixed properties. This ap- 
proach accounts for the different combustion characteristics of the fan and core streams, 
while avoiding the complexities associated with a rigorous treatment of the radial as well as 
the axial distribution of combustion throughout the augmentor. 


Experience with modeling the combustion process as a plane heat addition with all 
combustion taking place in zero length, had shown that the resulting predictions of rumble 
were sensitive to the axial location chosen for the plane. Since combustion actually takes 
place over a distance of 30 to 60 inches, it was decided that the axially distributed nature of 
the burning should be accounted for. This was accomplished by dividing the combustion 
zone into a number of axial sections, each of length &, as explained in part 1, ‘‘Development 
of Acoustic Equations”. 


Combustion equations used in the rumble model are based upon an extension of em- 
pirical steady-state processes 10 the case of time variant flow. A schematic of the steady- 
state processes is shown in Figure 22. Consider first that the augmentor contains only the 
fan stream. An identical set of equations will exist for the parallel core stream. Following 
a particle of air as it moves through the augmentor, the following steps will occur: 


e Particle of air picks up fuel as it crosses the spraybar. 

e Particle drifts at through-flow velocity to the flameholder, station (4). 

e Particle is ignited by the flameholder wake as it drifts from the flame- 
holder, to the beginning of the combustion zone, station (5) (defined as 
the location where the bulk fluid temperature begins to rise sharply ). 

e@ Particle drifts and burns from station (5) to the end of the combustion 


zone, station (10) (defined as the location where bulk fluid temperature 
ceases its sharp rise). 
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It was determined (see equation (10) ) that for a linear temperature gradient,the steady- 
state volumetric heat release rate in the augmentor could be taken as independent of axial 
position. This implies that at steady-state a particle of fuel-air mixture, drifting and burning 
through the combustion zone, has a volumetric heat release rate that is independent of axial 
position, The rate can be computed directly from the flowrate, ideal temperature rise, ef- 
ficiency and combustion zone volume of the augmentor.. 


C 
q= EW Ty (30) 


For small perturbations, it was assumed that transiently the volumetric heat release rate of a 

particle could still be taken as independent of axial position, and that equation (30) could be 

used to compute the rate when W, Tj and 7 are referenced to instantaneous approach con- 

ditions. The resulting equation will model combustion as though it behaves in a quasi-steady 

manner. The volumetric heat release rate at any location in the combustion zone will reach 

the steady-state value corresponding to instantaneous conditions at the flameholder and at 

the spraybar after a delay. The delay is the time required to purge the old combustion gases | 
and refill with new combustion gases traveling at through-flow velocity. : : 


For the fan stream, instantaneous approach conditions are taken to be the instantaneous 
conditions at station (3). Because of the large pressure drop in the fuel spraybar injector, 
changes in fuel flow in response to augmentor pressure at the spraybar are small compared to 
changes in air flow. Consequently, fuel flow can be considered constant, and the fuel-air ratio 
of the particle as it crosses the spraybar is determined by changes in air flow only. 


‘ constant 
FAg/p = oe ae (31) 


A period of time Tp = LSC/V3 is required for the particle to drift from the spraybar 
to the flameholder. Therefore, the fuel-air ratio of the particle when it reaches the flame- 
holder can be expressed as: 


FA,(t) “ FAs 5 (t= Toc) (32) 


At the ignition plane (flameholder) the particle has a “‘potencial’”’ volumetric heat release 
rate of: 


C 
Ge = Ss Ws Tre te (33) 


The ideal temperature rise is a function of the fuel-air ratio of the particle (effects of ap- 
proach temperature and pressure are negligible). The efficiency is assumed to be a function of 
the fuel-air ratio and the approach pressure, temperature and velocity. 


T,. =fen(FA,) (34) 
ne = Vfen(FAc, Ps, Ts, Vs) (35) 
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The total volumetric heat release rate (subscript ‘“T’’) is formed by adding the heat release 
rates of the fan and core streams: 


Gr = Q = Qe + Qu = GeVe + GuVn (41) 


or, in normalized form: 


: a= [ Jac + [ & Jax (42) 


Equation (42) computes the instantaneous volumetric heat release rate of a particle of 
combined fan stream and core stream fuel-air ratio mixture when the particle reaches the 
flameholder. The term “‘potential”’ is applied because the particle has not yet been ignited. 
The particle is ignited by the flameholder wake as it drifts a distance 4 at velocity V,. The 
particle begins releasing the “‘potential” heat at station (5), as defined by equation ( 36). To 
account for adding the core stream to the augmentor flow (originally only the fan stream was 
considered), equation (36) was rewritten to include the heat release of both the core and fan 
streams and emerges as: 


q(o,t) = q. (t4,/ V,) (43) 
: Linearized: 
| q(o,t) = qi (t+4,/ V,) (44) 
Equation (44) simply adds a delay into the system which allows tailoring the axial location \ 


of the beginning of the combustion zone. For convenience in programming the equations, 
this delay is added to the drift delay in the combustion zone (7) to form an overall particle 
drift delay from the flameholder. 

tg =44/V, + te (45) 


The particle then releases heat throughout the combustion zone as defined by equation 
(37), the linearized version of which is: 


q (x,t) = q/(o, t—r,) (46) 
Equation (45) was presented in part 1, ‘“Development of Acoustic Equations”, and 


used to evaluate integrals in equation (7). The combustion equations require that the fol- 
lowing information about the steady-state operating point: 


[2a] ees 4 Be: 
n 0 JcuH 'L yn eTICH on n IVI CH 


The heat release rate ratios Qo/Qy and Qy/Qp are computed in the program from conditions 
known about each augmentor stream: 


Q: (BPR Tye ne) + (Tre mu) 

(47) 
re 
Q. (BPR Tye ne) + (Tin an) 


si sia ce FA aT; 
The partial derivative terms | —- ——— 
: T; OFA 
»,H j 
subroutine curvefit of the ideal temperature rise curve. A graphical definition of the term is 
supplied in Figure 23. The partial derivative terms involving efficiency are computed in the 
flameholder combustion model and supplied directly to the rumble model. Alternately, 
they may be computed from empirical data and be input by the user. The graphical defini- 
tion of terms is similar to that of Figure 23. 
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Figure 23. Ideal Temperature Rise for Constant Pressure Combustion of 
Hydrocarbon Fuels 


This completes the combustion equation development for the V-gutter flameholder 
model. All of the above equations apply to the Vorbix and Swirl augmentors except as 
noted below. 


For the Vorbix and Swirl augmentors, independent heat release rates for the fan and 
core streams cannot be identified because of the flow mixing. In addition, the effects of 


pilot fuel-air ratio on augmentor combustion efficiency must be accounted for. Equation 
(3) is again applied, but on an overall basis only. 


C 
a = 2 wn (48) 


The overall fuel-air ratio is computed from total mixed air flow at station (4). 


constant (49) 


FA = W, 


The overall ideal temperature rise is a function of overall fuel-air ratio. The efficiency is as- 
sumed to be a function of overall fuel-air ratio, pilot fuel-air ratio and pressure at station (4). 


T, = fch(FA) — 
n = fch(FA,FAP,P,) (51) 


Then for the Vorbix and Swirl augmentors, the instantaneous “‘potential’’ volumetric heat 
release rate of a particle of mixture when the particle reaches station (4) is: 


-[ .(*™@]-[2]] « 
matte Bae 7 FAS 


FAP | poy Ree | 
+ | ee. FAP’ + oy Pi 


(52) 


Equation (52) applies to both the Vorbix and Swirl augmentors, and is equivalent to 
equation (42) for the V-gutter augmentor. The Vorbix and Swirl augmentors differ in pilot 
location. The Swirl has the pilot at fan duct exit, so that air flow through the Swirl pilot is 
proportional to fan duct exit flow, Wg. The Vorbix has the pilot near midspan, radially, end 
slightly aft of stations (3) and (3H), so that air flow through the Vorbix pilot is proportional 
to total flow, W4. Then, since fuel flow into both pilots is constant: 


Swirl: FAP’ = — W,’ 
Vorbix: FAP = — Wy (99) 
For convenience in programming, W, can be replaced by: 
W, = Ws + Won 
(54) 

BPR | [ a: | | 

me -[; + BPR Js + | 77 BPR] Ws 
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Substituting (53) and (54) into (52): 


Swirl: qi = {(1-[ eae -| ar 


sic] -[ ae] )( oso Ih 
-4( ~| T, aFA 7 oFA | + BPR Wau 
(55) 
{ Ee. | P, 
n aP 
ie eae FA aT FA a5 | | FAP an 1) BPR ) 
Vorbix: i {( | T, oF [ ; A 7 aFAP i+ BPR /{ Ws 
FA aT, FA an | 7 | FAP an | )( ] ) ’ 
A( T, oF | 7 oFA 7 oFAP i+ BPR /{ Ws 
—— (56) 
| ——1. |p 
n aP 5 


Equations (55) and (56) replace equation (42). All other combustion equations are 
identical to those developed for the V-gutter flameholder augmentor. The partial derivatives 
in equations (55) and (56) must be computed from empirical data and be input by the user. 


This completes development of the combustion equations. For the solution technique, 
based upon applying the Nyquist criterion to the open loop transfer function (OLTF), the 


OLTF is formed by renaming q-p to qyn in equation (44) and by renaming qryp to qoyp in 
equations (42), (55) and (56). 
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APPENDIX B 


DEVELOPMENT OF FLAMEHOLDER COMBUSTION MODEL EQUATIONS 


1. DEVELOPMENT OF THE FAN DUCT COMBUSTION EQUATIONS 

The equations which are used in the fan duct combustion analysis are highlighted in 
this section. The reader is referred to the AFAPL TR-78-24 (Contract F33615-76-C-2023) 
for full details of the analytical development. 


The program utilizes the input to set-up and analyze each streamtube as a separate 


entity. The results are stored for final summation at the completion of the fan duct analysis. 


The flow field is first developed from the input: 


FP, (57) 
Pa = RT, 
V, = MVyRT, (58) 
W = NI (59) 
m, = paVaW (60) 


The streamtube width has been set from the flameholder width and the blockage ratio. 
Note that the streamtube is assumed to be 1-in. deep. The total flowrates are thus per unit 
depth. If true total flowrates are desired, the number of streamtubes of each type must be 
set to reflect the total true depth of that type. For example, if 5 streamtubes, of 4 inches 
depth each, are input as one type, then set the input number of this type equal to 20. 


To account for the removal of air from the streamtube for liner cooling, the input fuel- 
air ratio is adjusted by: 


I 


FA ) = FA ) —————_—— 
effective input ; ‘ 1 + BPR ) (61) 
1 — WCOOL ( Pr 


This increases the fuel-air ratio to reflect the air removal when: 


WCOOL = tMeoonng /Mengine (62) 
BPR = monet /Meore (63) 
Mengine Mauct + Meore (64) 


Then 


my Mm, (FA) ettective (65) 
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This is required since fuel-air ratios are usually based on the total fan duct air flowrates. If 
true values are known or if no cooling air is used, set WCOOL = 0.0, Refer to Figure 24 
for details. 
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Figure 24. Location of a Core Streamtube in a Turbofan Engine Augmentor 
The injection subroutine divides the fuel into 5 droplet size groups which represent the 


droplet size vs. volume distribution. The curve used is for a variable area pintle injection. 
The sizes used are: 


Group % Covered Mean Value 
1 0-20 Gio 
2 20-40 dy, 
3 40-60 ds 
4 60-80 (3 Be 
5 80-100 Cx 


The curve is a function of the injection pressure drop where: 


AP,»; = PFSR — Ps (66) 


Any flash vaporization is evaluated from the fuel enthalpy chart assuming adiabatic injection, 
i.e., AH =0 


H, = fen (PFSR, TFSR) (67) 


H, = fen (% vaporized, Ps) (68) 


The droplet vaporization and acceleration are evaluated by a small time step integration 
between the sprayring and flameholder. The equations are: 


et amare were = ee (69) 


for acceleration, and: 


P, (70 
Myaporizea = KA, Pp. tn ( P = P ) ) 
K - N. D, MW (71) 

7 Rd, T, 
(72) 


N, = 2 + 0.6 R,!? P,1” 


for vaporization. 


The evaluation of the liquid temperature follows: 


hy = kN/d, (73) 
q = h, A, (T, — T) 8 (74) 
ele ssa ne 
z = Cp, m/rk d, Ny (76) 
Aq =q- mA (77) 
aT, _a4 
dt  m,Cp, (78) 
ve mg at ) (79) 
3 2 
pa 4, (V, — V)) (80) 


Meg 


This procedure is done for each size group until the flameholder is reached and the net 
fraction vaporized is evaluated. 


g=i-( 2) (81) 


mr at F/H 


The impingement of liquid fuel into the flameholder is evaluated by use of a term Bo where: 


Mee (82) 


This evaluates the percentage of the liquid fuel exposed to the flameholder which actually 
collects into its surface. The evaluation procedure is done for each size droplet group by a 
correlation of Bp vs. flameholder size, apex angle, flow velocity and droplet diameter. The 
correlation is based on evaluations performed by droplet trajectory analysis using the poten- 
tial flow field aerodynamics. The total impingement flowrate is thus: 


(83) 


> mt) 6.0 


1 
a= se 
Z m i=l 
or: 
m,, = B, (1 — ,) T mr ; (84) 
The liquid film vaporization rate is evaluated from the equations for the surface film vapor- 


ization caused by heat transfer from the flameholder wake. The surface is broken into ten 
elements and the vaporization and liquid temperature rise in each is calculated from: 


J P, 
m, = C, A, P,tn ( pe) (85) 

N, D, MW (86) 
"Rt, 

(87) 
N, = 0.33 R,°* P,2.28 
P, = fen (T)) (88) 
—e N, D, MW ) P, (39) 
q = mr, Ch AT, + X ( hack aT PP, A, ( FP, ==. 
q= the A (to — Tid (90) 
e mS 

b= Nw 5 (91) 
Nu, = 0.99 R.°* P,°# (92) 


The solution procedure for 63 breaks the flameholder surface into 10 equally spaced incre- 
ments. The length of each is: 


ie le 
Ax = 46 din (ald) ey) 


The fuel collected by the surface is equally divided into the 10 elements on each face of 
the flameholder: 


rine(i) = Je Bx (1 — 8) tin (94) 
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Equations 29 to 36 are used for element i = 1 on the surface with m f= m, (i) and the fuel 


temperature is assumed to be the same as the droplet liquid temperature at the flameholder. 
The fraction vaporized is calculated and the liquid temperature use evaluated. The procedure 
is repeated using fuel properties evaluated at: 


h(i) =T (i), +> ATAi) (95) 


This procedure continues until convergence, i.e., ATp varies less than 1% between passes. Into 
the next element, i = 2, the flowrate is set equal to the unvaporized portion of the i = 1 flow 
and the collection fraction per equation (94). 


m(2) = m,(2) + m.(1) — m,(1) (96) 


This flowrate initial temperature is set equal to the mass average of the exit temperature 
from i = 1 and the droplet liquid collection temperature: 


m,(2) T,. + {m.(1) — m,(1)] Ti-(1) 


(2) ; 
m,(2) + m,(1) —m,(1) 


(97) 
The solution procedure is separated until all 10 segments are finished. The vaporized flow- 
rate is the sum of all 10 in both sides of the flameholder: 

10 


m=2x 2, mf) (98) 


The fractive vaporized, Ba, is: 


my, _ m, 
m,. = B,) r Bo m, 


Bs = (99) 


All of the vaporized fuel is assumed to enter the recirculation zone. 

From these equations, 8 3 is a function of the wake temperature. The temperature is a 
function of the wake fuel-air ratio and recirculation rate. Since £3 strongly influences the 
wake fuel-air ratio, the solution for wake composition and efficiency becomes a curve inter- 
section procedure. 


First we define the recirculation and wake kinetics equations and then the solution 
procedure. 


a. Recirculation 
The wake recirculation flowrate coefficient is defined as: 
K, = m,/T m, (100) 


m, = pa Va N K, (101) 


For mass transfer across the recirculation zone boundaries and a homogeneous wake: 


m, = Pa Vo (102) 


T 


The wake volume is evaluated as a function of blockage, apex angle, and flow Mach number 
from literature references as shown in the flameholder Final Report, AFAPL TR-78-24. From 


this: 


V.. = Cy (L/D)(B/D)N? (103) 
We set: 
6 Ne 
' s (104) 
VAAN 
ne eee (105) 
Thus: 
r - 
and 


K, = C,(L/D)(B/D)(z7’)~? (106) 


By curve fits of L/D, B/D and 7 ‘vs. a, N, Va, and Ta, we find the recirculation rate Ky. 
b. Wake Reaction Kinetics 


The wake reaction is assumed to be a single step, second order reactive controlled 
as follows: 


k , 
7 a ee ee a (107) 


For a well stirred reactor (wake is assumed to behave as one): 


A _ k(mt+l)_, e-c/t 


a 
T2-05 


mw 
V.P> Raye %o * 


(108) 
For the assumed single-step reaction process postulated here, the reaction mass balance is 
(for propane fuel): ; 

oC3H, + 50, + 5mN, — 3yeCO, + 4yeH,O + 

(@-ye)CsH, + 5(1 — ye)O, + 5mN, (109) 
Also, a linear efficiency vs. temperature function is assumed: 


i) = Re 4 EAT deat (110) 


From these equations, the stirred reactor loading capability may be written as: 


A = k(m+1)[5(. —ye) |" ¢—ye]"-8e 0" + AT) (111) 


V,P" R°ye[5(m+1) + @ + yel"[T, + eAT]"-°* 
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Based on comparison of predicted results with available stirred reactor data, we use the fol- 
lowing values for this reaction: 


n: for ¢<1,n = 26 
for ¢>1, n = 2/d 
a: a = n/2 
C: C = E/R, see Figure 25 


This yields: 


A 1.29 x 10° (m+1)[5U.—ye)]* (¢-yoee CCT + 31 (112) 


V,P?* (0.08206)?* ye[5(m+1) + @ + yel??[T, + AT] 


for lean mixtures. 
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Figure 25. Variation in Activation Energy With Inlet Temperature and 
Equivalence Ratio 


The kinetics solution proceeds by successive iteration between € = .999 and 0.70 to find 
the wake efficiency where: 


s.. Ketm, (113) 
VP? V.P,? 


at a given fuel-air ratio in the wake. 
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The solution procedure for the wake composition and reaction efficiency proceeds 
as follows: 


(1) The wake temperature is varied in steps from 1000° F to 5000° F and 
calculated at each wake. 


(2) The wake fuei-air ratio is varied from 0.02 to 0.20 and the wake 
temperature calculated at each fuel-air ratio. 


The results of (1) are used in the wake fuel-air ratio equation: 


FA) ware = FA)totat Brack Class ee a (114) 


Ba Bs | 
1 
This results in two curves, which define the wake fuel-air ratio vs. wake temperature and 
wake temperature vs. wake fuel-air ratio. A solution technique looks for the intersection of 
these curves, if it exists. This then defines the stable wake composition solution. 


The fan duct gutter wakes may be supplied with hot gases from an external (to the wake) 
source such as a pilot region, see Figure 26. If this occurs, the external thermal source is as- 
sumed to effectively increase the inlet temperature of the recirculated air-fuel flowrate, i.e.,: 


mi = K, pa Va P+ Mert (115) 


PK oe Vii’ +. Pde tiliee 


Te = me (116) 
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Figure 26. External Heat Addition to Fan Duct Gutters 
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The program then analyzes the behavior at these new conditions as if they were input. 


After the wake has been analyzed, the turbulent flame penetration into the free-stream 
is analyzed. 


The turbulent flame propagation into the unreacted free-stream is initiated in the 
shear layers of the wake. The model used relates the local turbulent flame speed to the local 
aerothermodynamic conditions and performs a finite difference integration of the flame 
front penetration starting in the wake and proceeding to the exhaust nozzle. 
For the purposes of current analysis, the following assumptions were made: 
e Uniform air flow profiles 


e Uniform fuel-air ratio 


e Incompressible acceleration of free air velocity by the flameholder 
blockage with no induced profile 


e Known wake size and reaction efficiency 
e Two-dimensional ducted flame. 
The schematic of the situation which is analyzed is shown in Figure 27. 


The approach flow, at known levels of pressure, temperature, velocity and fuel-air ratio, 
is accelerated by the blockage of the flameholder to velocity U, where: 


Va 


U= Waa 


U = Velocity at flameholder tip 
V, = Approach velocity 
I = Blockage ratio. 


At this point, Station 1, an induced turbulence level is calculated from: 


y 2 ” 
w-[foor+( 25)} 3] 


This equation relates the turbulence intensity, ¢ o» to the blockage ratio and the flameholder 
zero blockage drag coefficient, Cq: 
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At this location, the turbulent flame velocity calculations are initiated. The equation 
used for the local flame speed is the Karlovitz equation: 


St = St + (2u St)* 


Where: 


St ~ Turbulent flame speed, ft/sec 
St ~ Laminar flame speed, ft/sec 
u ~ RMS turbulence velocity, ft/sec. 


The value of u ‘is: 
u’ = ¢,U (117) 


Additionally, the turbulent flame speed initial value is related to the degree of initiation 
of the flame speed initial value is related to the degree of initiation of the flame front by the 
wake by the following: 


St = St X mw | (118) 


This generates an effective turbulent flame speed which completely fills the depth of 
the duct and propagates at the same transverse rate as the full flame speed which does not 
fill the duct. This arises from the fact that the inefficiencies of the wake reaction generate 
localized regions where flame front ignition does not occur. This use of a reduced value ef- 
fective flame speed accounts for this in a two-dimensional model. 


The initial value for the augmentor efficiency is the wake reaction level on a mass 
weighted basis, expressed as an equation this is: 


Neg = tw ee (119) 


Initial efficiency 
Wake efficiency 
Wake mass flowrate 
Total duct flowrate. 
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The type of flame utilized in this model is a zero thickness flame which separates a 
region of unreacted propellants from a region of completely reacted products. From this 
setup, the average local augmentor efficiency is simply the ratio of the transverse flame 
penetration, Ay, to the duct width, w. 


To be consistent, the transverse location of the flame front at the initial calculation 
station is taken to be: 


AYo = te, * W (120) 
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This value is assigned to the first axial station. This is assumed to occur halfway down 
the length of the recirculation zone. From visual observations of wake stabilized flames, 
this is the approximate location of transverse flame initiation. 


From this location downstream to the exhaust nozzle, the flame front transverse loca- 
tion is calculated by a finite difference integration of the local flame speed. Several axial 
profiles are introduced as the integration proceeds. These are: 


(1) The turbulence intensity is decayed from the value generated at the 
aft flameholder lip at a rate inversely proportional to the square root 
of axial distance over an effective jet length. The final value is set at 
the initial turbulence level. The effective jet length is set at 10 L/D 
where the D is the open area distance between adjacent flamehoiders. 


(2) The velocity of the unreacted fuel-air mixture is retained at the level 
generated at the flameholder lip. Measured profiles from several 
ducted flame test rigs support this assumption. 


(3) <A term is introduced which relates the local flame speed to the local 
average duct combustion efficiency, peaking at 50%. This treats the 
counteracting influences of reduced heat loss as efficiency increases 
and reduces the free oxygen concentration. Local rates which roughly 
follow a sine wave function have been reported from duct data. 


An additional term is added to account for the reduction in flame speed of a fuel spray 
compared to a premixed flame. This term relates the ratio of effective flame speed to pre- 
mixed laminar flame speed. It accounts for the complicated interactions during flame 
spreading in an evaporating spray in a simplified manner. The effect of the liquid droplet 
diameter is shown in Figure 28. The droplet diameter utilized in the cid will be the 
mean diameter as it exists at the flameholder trailing edge. 


Flame Velocity - cm/sec 


Droplet Dia - microns 


Figure 28. Flame Speed for Monodisperse Tetralin Spray 
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Analysis of the terms utilized for evaluation of the laminar flame speed term, Sp, has 


resulted in the following: 


— Ta iy ( Xoz i ¢ 
S,; = S; (¢) ( 54 0.21 (121) 
Where: 
S, = laminar flame speed at 1 atm and 540° 
o@ = equivalence ratio 
T, = air temperature, °F 
Xoz2 = Oxygen mole fraction. 


The influence of pressure is indeterminate at this time and has been incorporated as 
Vv Me for subatmospheric data and no influence for pressures above 1 atmosphere. 


The finite difference solution uses 1 in. increments in axial length as the stepping vari- 
able. This sets a time interval: 


At = 0.0833/V. (122) 
The transverse flame penetration distance is thus: 
Ay = St At = y(i+1) — y(i) (123) 


where St is evaluated at the conditions of x = x(i). 
The stepping procedure terminates when either: 
(1) x (i+ 1) = augmentor length 


(2) y(it+l)=w. 


The first defines Ne at tie exhaust nozzle, the second defines 100% No before the nozzle. 
This defines one fan streamtube. The exit temperature is thus: 


Tex(i) = Tali) + ne(i) AT,(i) (124) 


AT\(i) = fon (T,(i), FAC errective)- 


This represents the actual combustion efficiency based on the true fuel-air ratio in the 
streamtube. 


For multi-streamtube cases, the exit and inlet conditions are mass averaged using the 
general equation: 


m(i) Z(i) 
1 


mn 


n 
t 
2 =< 


(125) 
m(i) 
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The average input fuel-air ratio and average inlet temperature combine to yield the 
average ideal temperature rise. The average inlet and exit temperatures yield the average 
actual temperature use. Thus: 


‘= ST revua) (126) 
AT sce: 


This is the chemical efficiency. The thermal exit efficiency assumes that the augmentor liner 
cooling air flow is included in the average exit temperature: 


n 


Sa m(i) Tesi) + Wiscos gic 
go Wes ot (127) 


es 
‘te 


Pin = 


m(i) + Mesot 
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This reduces the average exit temperature and yields the lower value for thermal com- 
bustive efficiency. This value for 7,, reflects the average exit temperature based on the 
average input fuel-air ratio and based on total fan duct air flow and fuel flow. 


Before execution: of the core streamtube analyses, the influence coefficients which are 
required are evaluated. These are of the form: 


Bow 128 
i. (128) 


Where: 


A = Vu, Pa Ta, and FA. 


They are calculated from a 1% change in the variables and the linear form: 


An A_ mam | (A +A) (129) 
AA % 


A; - A, (nm. + m2 
Where: 


A, = 1.01 A,. (130) 


The value of n9 is obtained by execution of the analysis at all the same input as N 1, except 
A, is replaced with Ay. Thus, the analysis is done once for base and four more times for 
the Z factors. 


—— 


2. DEVELOPMENT OF THE CORE STREAM COMBUSTION EQUATIONS 


The same basic analysis procedure as accomplished in the duct is used in the core with 
several major operational differences: 


a. 


There is no cooling air removal from the core streamtubes. Thus, 
the input fuel-air ratios are used in the analysis. 


The droplet vaporization rate is so rapid that the fuel exists only 

as a vapor after a couple of inches from the spraybar. This removes 
the requirement to solve for the wake compositive since it is the 
same as the input fuel-air ratio. 


The wake reaction efficiency is solved directly at the input fuel-air 
ratio and recirculation rates which are calculated the same as the 
fan duct. 


There is no droplet size effect in the turbulent flame speed model. 
The rapid droplet vaporization results in gaseous phase turbulent 
flame penetration. 


The solution for a core streamtube proceeds as follows: 


(1) 


(2) 


(3) 


(4) 


The set-up equations are the same as the fan streamtubes. 


The recirculation coefficient, Kj, is calculated the same way as 
done in the fan stream. This generates the value of A/V ,P2 re- 
quired for the kinetics solution. 


The wake reaction kineti-s solution is performed at the same 
value of fuel-air ratio as input for the streamtube. 


The turbulent flame penetration solution is the same as for 
the fan stream except that the droplet correction term is 
absent. The equation introduces a value for the oxygen 
concentration, Xe 

2 


This value is less than the fan duct due to the removal of oxygen by the mainburner 
combustion process. This vitiation yields: 


Xo 


= 0.21 


FA Paks 
FA)stoten 


(131) 


The analysis produces a value of 7,, for each streamtube, i, by the same equation as used in 
the fan: 


Y(i) 


wi (132) 


ne(i) = 


where Y(i) is the penetration distance transverse to the flow and w(i) is the streamtube width. 
The exit temperature calculation is different from the fan duct due to the vitiation of 


the approach air flow and the temperature removal in the turbine between the main com- 
bustor and the augmentor inlet. 


The ideal temperature rise for each streamtube is evaluated by generating a fictitious 
main combustor inlet temperature. The procedure is as follows: 


(1) For known main burner FA and streamtube inlet temperature, Ta(i), 
a fictitious AT is read from a curve as in Figure 29. 


Afterburner Inlet Temperature °F 500 1000 1500 2000 2500 


i OE ae ee AA 
ee BF FFA 
ee 1 ALG eas 


Fictitious Ideai Temperature Rise, deg 


1100 
012 Cd fs <1 020 .022 .024 .026 .028 .030 
Main Burner Fuel-Air Ratio op mone 
bt2-796 


Figure 29. Fictitious Temperature Rise vs Main Burner Fuel-Air Ratio 
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(2) A fictitious main burner inlet temperature is calculated: 

T'ma(i) = Tali) — AT rier(i) (133) 
(3) An overall fuel-air ratio is calculated: 

FA,,(i) = FA)ms + FA(i) (134) 


(4) With FA= (FA) (i) and T = T,,p(i), the overall effective 
temperature rise is read from the ideal temperature rise curve. 


(5) The streamtube exit temperature is: 

Tex(i) = AT,(i) + Tna(i) (135) 
(6) The streamtube net ideal temperature rise is thus: 

AT’,(i) = T.,(i) — T,(i) (136) 


This value is calculated for each streamtube and used exactly as the ideal AT curve is 
used in the fan streams. The streamtube exit temperature is: 


Tex actuai(i) = Ta(i) + ne AT;(i) (137) 


The inlet temperatures and fuel-air ratios are mass averaged as is the exit temperature, 
using equation (125). 


The overall core efficiency is calculated from steps (1) to (6) using average inlet con- 
ditions to yield the average ideal AT and equations (137) and (125) for the average exit 
temperature: 


AT war = Teste ae Ts (138) 
= BT coca (139) 
” AT, 


The influence coefficients are shown in equations (128) to (132) are evaluated as was 
done in the fan. 
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CE TAL LT Ge eURetE TAL ebb oie) wKile (oyl OOO) 

(Cc TAre LT eCoeURet TAneOleios Wealk s6e1C06) 
CUFACCLIFFAM( AD de CU ee) While (69 LOU9) 

UrAVe CL etrAaVi Franti dd FC ALNVS 16501 2) 
rALULI*®ALHV/1ELOU. 

(AX eLE. US SURV ebE ee 4) WKATC (6,1lU10) 

CESEM ade Lt ee eUneL SLI LIsbLeLAD WRITE (O91 94) 
CESHOL de lht eGo eUKe lL Smtl)sveeL Ad wKITE (691035) 
(TOLL deb eoobed WRITE COslLee) 

(bormladelLt eve) WRITE (6yiveid 

(FAC L deh TeUed whale (61044) 

CrAr Cadet TeGed wKIitc (Oy1045) 

Ce be LTO ed wkKaTt bog hc dd) 

CeReLE Ged write (6e1l%sl) 


KE TURN 


4C LF 
it 
Ir 
ar 
iF 
ir 
if 
it 
iF 
if 
aF 
ir 
ir 
ar 
it 


(cAekTecbd STUP 

CLCok Tore) STUP 

(WLUOUL oh Pe Ge Uelk eWLUUL «Lt el.) STU 

CETA CLT. Oe eURcETAsGl oi od SETUP 

UNF SUP cE Ue CeANU eC bPR ete Oe) STUP 

CUPESe LT Ue elke URLS ebb oie) STLP 
(UPUSLT.GeebmeUPUeGI ele) StUP 

CUPL 16 Oe Uk OPH eGTeaed SIUP 

CU FNS oe LT Ue UK CUPS eOF elie) STUP 

COPS SL Te Ue UR eUFS ebb eied STUP 

(brReLT.O0) Shur 

(PAV eLTeOeeUKeFAV.GTeUGE) STU 

CNCUML Po NE 6 De ANU eC NAUGUM LL ee UR eNAUGUP LT 23) STUP 
INCUMU Pe Nt oe Se ANU eC NF SUP elt eUsUK NE SUP. GT.62) STUP 
CuPUEn LE eOeUn eu bELebT.2) STUP 
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igsGisse 
Al.35-C2 


O0C1ce 
ULlet 
OOivus 
vuley 
0110 
Ovlal 
velid 
GOllas 
Uriae 
UGlid 
OC lio 
oCilil 
Cllib 
Ovlay 
OC1ic¥ 
OC1e) 
OCled 
661¢3 
CCles 
UblLed 
Oll.o 
UlacT 
Uciles 
F129 
Gbiac” 
OCilol 
CCise 
bulss 
ULLS4 
Guisd 
C156 
OCcilst 
UU1s8 
Ovulsy 
001466 
Oflel 
WO ls2 
OC1s3 
OC1s4 
OC 145 
vise 
VUle7 
UVULSb6 
Gis 
OC i150 
Oviol 
Ovlvoe 
Ovars 
ON154 
G0155 
00156 
Oc1lS7 
OClbe 
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PRAIT & wHlINEY ALKCRAFIT OLVISIUN VER 
CSG.rAN7TS? 10.0 


1F (NPKNTRSLT eGeUKeNPRNTK GTO) STOP 
Lr (MOL eLESO.) STUP 
IF (MOnm.cLE.C.) STU 
ir (Mok .LE.O.) STUP 
LF GeAclt Ged STUP 
Ar Cb delLt eGCed STUP 
Ie (eCelt.G.)d STUP 
Ir (emote Oo) STUP 
ar (L2eLT 200) STUP 
ae (TCURE LT.O.) STUP 
AF UhSO.LE*U.) STUP 
lr (Fash TeO)d STUP 
dr (PKNUZ oLteole) STL 
oC o4F (eReGT ebb) STUF 

Tr (ke beGE et Kh) STUP 
dr telelT eGo? STUP 
AF ULKeLe ee) STUP 
Ar (NCUMUP.LT oc) KETUKN 
LF UNTCCLESCCUKLNTLeGTLLOC) GU TU 260 
CU 250 & = lgNTC 
TF CALPRALEL) eLE eGo eURsALPRALI(L) -GI216C.) STUP 
Ir (rACtL dete eGed STUP 
dF (rmwlel) LeE.be) STuP 
LF Ce SEER de LE ee elmo LSCULDeGteLAd STLP 
XMol = MoC/(1.-TAULCILI) 
Lh (XMOL.GTeLed STUP 
Tr ENSEEE DLT eC UR eNSCIL) eGT e100) STUP 
AF CTAUCEL) LE Oe ele FAULIL) GE ol ed STUP 
AF CTOLULDeLE soe) STL 
aF (Xceed Le eo Ce) STUP 
tr (PESKIL) eLESPSO) STLP 
BF UWEATELD OTC oe ebNUe TEXTIL DeL T4004) STU 
LF (CTFSRKOL) LL T.460-.) SILLY 
ir (we aTeld et Te.) STUP 

25C CUNTINUE 

Zou ik (Nine LESOeUR-NTN«GT.iv0s GU TU 2860 
DU 270 KR = lsNin 
LF CALPRAMUR) eh eee UK cALPHANIA) oGT6 1606) STUP 
Ar UPAR DeLee bed STUP 
Ir (rrwrth) ce eCed) SIUM 
TF (USMOR DLE Ue UK eLSrmtK) Ge ec A) STUP 
AMtH = M6H/(1.-Tauninds 
LF (xAMOH.GT ele) STUP 
LF UNSHORD SLT eUsUReNSHIKRD 6GTLLCO) STUP 
LF CEAUHER SD LE Ue URI HUMIRA) eGEoied STOP 
Lr (Termin DeLee 46U6e) STUP 
IF (XLmMIR DLE be) STLP 

270) CUNT LNUE 

260 Lhe (lorneGEec20%e) STUP 
Tr (NFRNTF «UT eCeURKeNFRKNTE CGT o1L) STUP 
LF UD sre lb e be ce ANU CNTR te) STUP 
AP CE TAL LT ee elk etl Al eGleie) STUP 
Th (Cc TAre lL ToGo ebm et TAN sGT obo) STUP 


111 


sare 


eg gl a a IE ~ — z 


12/07/78 
11.35.62 


00159 
00100 
00lol 
00162 
00103 
0Clo4 
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CCiz2 
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Y = PALULIFALN VSL B5UL. 00214 
LE UX ebb ee Oe UKe PebE ee) STLP 00215 
LR CL SCUL de LE eGo eR eLSLUL DP eGteL Ad STUP OC216 
AP CE SMEL De LE ee elmetL Stl deGtetL ad STUP Geil 
Tr (NTL Te Cele IL GT e1COd STUP Ov2.6 
ir CNUs CT GeUKeNTIM.GT 2 LUG) STUP Oc2ly 
br LePSUSLI CG. UK EPSE GILL.) STU on yara €) 
Ah Cer SMe LE ee eUneLPSMebl eles STUP Ougel 
br {NAUGUR Se tes) KETUKN 06222 
TF CHOC a de Lt eed STLP OCéc3 
ar (CbOMA LP eLe ode? STLUP ULe.4 
fr (rALhideLTobed STL O02<5 
ah tram h del ToGo) STLP OGcco 
Ke TURN OC2.7 
oC Lr (cAsLEeLCALL) LA = LLaALL 10228 
shaksT = © O02e4 
Ke LUKN 00250 
LUGi FURMAT irk, t Oeee ANRPUD CKKUK NU. 4 ~ LA MUST ot GKEATEK THAN Uk OCZ54 
*cwbAL Th Lb ¥ORMeh Ay) Ol25< 
LOG. FuURMAt lA * **Fe* INPUT ERKUK Nu. « — LS MUST oF GREATER THAN UK (00253 
eval FL LR BRewe hss) 00254 


1GG_ FURMAL Virk,**#ene INET 


*evAL FU Ink 


ERKUR NUs 3 = LA MUST be GKEATERK THAN UK tO0U255 
ouM Ur Lb PLUS Inc MAX UF Loe UK LSme8 o/s * LA MAS BELNCUZ50 


FAVILSTEU ALLLRUANLLY. CREUR ANPUL. 88 Oh ss) CUdsT 
LOC% FURMAL CLA,  ¥*8 ee Ler OT CKRUR NUe # = Li MUST BE LESS THAN LKR #9400256 
weerss7) G0es4 
1G05 FURMAL (LAg* ###e# INPUT EKKLK NU. 5 — LC MUSf bE UxtATEK InAN UK tOC 240 
FUUAL IU Lo PERE D7) vuesl 
L0Ge FuRmMAt (irs? #8 ee INPUT EKKUK Nue © = ETA Must bt oc TWrtEN 0. ANU iOUc4se 
we weenee, //) Ol245 
1CC7 FURMAL iA, #8" INPUT EKKUK NU. 7 - ELAL MUST BE BETWEEN 0. ANU OVUc4e 
+l. Hee Ss) UL24+> 
10Gb FURMAL ULA,'**e8e INFUL EKKUR NUe & — ELAmM MUST be GE TWEEN Se ANU GO2+0 
le BM RHM EGS) OGest 
1QG% FURKMAL CLAy* #eee% LNPUT CRKUK Niue 9 = FAL ANO Fan CAN NUT BUI ot OU24s 
Fiemme wile AUGMENTURK UN #484849 7/) vo2sy 
10a€ FUKMAL bik, #eee* INYUT ERKUK Nus lu = CUKE STKEAM UK FAN TUTAL rU0tcs& 
#tu wie Rel cACECUS LCIMLIS UF tUcAL TcMPEKaTUKE nKISE CURVE — %97/05251 
*LA,? bELWLUUI LIKELY #4484 /7) 0222 
LOL) FURMAD (LA, * ***¥* LiNeUT EKKUR NUe il - oP K LAN NUT bE ZeRKU WHEN TrOC 25 
ft ReMele Flow Sree f fer UP PiuN 1S SclLcLTCO BHeRHt ss) UU254 
LGic FURKMAL (LA, *** eee INPUT CRKUR NUe de - UPLS MUST bE bETWEteN OG. aNudczs5 
* 1, 44ERehL//) Gv256 
1Oi4 FukKMAL GLA," **8e* LiePUT ERKUK NuUs 12 - UPU MUST bE BETWEEN Ge ANU O0ced7 
le Be eee h Gs /) 00256 
Gis FunmaAl (la,g***e** ANFUL ERxKUK NUs 14 - uPM MUST be DETWEEN Gs. anu 90259 
ie Seema t ys /) CC e008 
TO1L5 FURMAL VLA, ***¥e8 AWPUT ERRUK NUs 15 — OFS MUSf oe BETWEEN GU. ANUUUZOl 
* le BOeeels//) Oleg 
1OLe FUKMAT CLA, * #48 e® INPUL ERKUK NUs lo = OFS MUST Be BETWEEN Os ANU OUd03 
41, Be eeM hy s/s) 00204 
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CSG.PAN(57 16.6 11655602 ra) Ucicoy 


1OL7 FURMAT (1A, * eee INPUT EKKUK NUo 17 - Tar eXCeEtEOS LIMITS UF iUEALOUcod 
* TEMPEKATURE KiSt CURVE s*s/9lXe*T 3H MUST BE LESS THAN Z2UuU. OLG R*0UZ00 


*e//) OO0ZoT7 
1016 FUKMAL (1X_°s**** INPUT EKKUK NUe 18 — BPR MUST BE EQUAL fU UK OKEOC268 
*ATER ThAN Of *#8889,/7/) OG204 
1OL4 FUKMAT (1A, ***eee INPUT EKKLK NUe LY — FAV MUST BE EQUAL [UO UK Grtude7U0 
*Alck FRAN Og #88", 7/) CO2g¢ 
1020 FUKMAL (1X_9\9 eeeee INFUT EKKLUK NUe <0 — NAUGUF MUST bE ly cy UK 5 #00212 
een, //) Vvelo 
1021 FURMAL (1A, *****8 INPUT EKKUK NUe 2a — NESGP MUST Be 1 UK 2 #8 #EBULZ 14 
**s//> 90215 
1022 FUKMAI (ir, **eeee INPUT EKKUR NUs 22 - NCUMUP MUST bE ly dy UK 3 *0L elo 
weeeelss7) Ouzi7 
1025 FUKMAT (1A,*eeeee UNKUT EKKUK NUe c3 — vFUEL MUST BE 4 UK 2 #®e RRQ OC Te 
sss) Ovzcly 
1Ocs FURMAL (ik, **#8e" UNPUT EKKUR NUs 24 - NPRNIK MUST bE O UK LL ##*800250 
wer ss/d 06281 
1025 FURMAL (1A gS 84*e*® INPUT ERKUR NUce 25 — NPRNTF MUST bot O UK Ll *# 8800202 
Boe //) Oudes 
Occ FURMAL (1k, * eR ee INPUT EKKURK NUs co — MOL MUST bE GREATEK TraN © 00264 
 Rean?s//) OO<ce5 
1027 FUKMAL CLA, * **##ee ANPUT ERRUK NUs 27 — MOrt MUST bE GKEATER TRAN 0 00206 
» aemwwly//) OC2e7 \ 
102t FURKMAL (lA, * *#**e LNPUL EKKUR NUs 26 - M6K MUST bE GREATER TRAN 0 OO246 
=» ome ts ss) OC2Z4y 
1029 FUKMAL (1X,°*"eee INPUT CRKUK NG. 29 -— LI MUST be EWUAL TU UK GKcadbcy0 
*Tck THAN Ge #¥¥¥4¥44//) vozy1 
1050 FUKMAL (ir, * eeeee INPUT ERKUK NUce 30 — LK MUST bE GKEATER Than 0.4. 0624e¢ 
wb BAERS 1) OCcy3 
1031 FUKMAIL (1A, **#*8ee INPUT EKKURK NUs 31 - LA MUST vt GREATEK THAN Co U0L94 
e HMM HE SS) O0295 
103< FUKMAT (1A_* ¥O¥e UNEUT ERRKUK NUe 3¢ -— LB MUST tt GKEATCK THAN Uw 00296 
+ PERE HM S/S /) UU297 
1035 FUKMAL 1X)" #4 ee INPUT ERKUK NUe 353 - LO MUST bE GREATER TRAN Ue. OUd96 
# #eemnts,s/) OC295 
1034 FURMAT (1A 9" ##***® LNFUT ERRUR NUe 34 -— ESL MUSF bE LKEATER TRAN 4.0030 
* ANU LESS TMAN LA 4H eHah Ss) OUSuL 
10355 FUKMAL (iky eee LRU ERRUR NUs 35 - LS MUST Be GREATER THAN U.0C 502 
* wNU LESS TRAN LA #R¥RRE 7) UU3U3 
1036 FUKMAL UlAg* *¥8** INPUT EKKUK Nuse 30 - on MUST be GREATERK Fran 0. OC3uU4 
* eeu Be EL ss) 0uU3su5 
LOS7 FUKMAL (LAy**¥#¥* INPUT EKKUK NUs 37 — Lé MUST bE GKEATEK THAN Un 6030 
eEweAL TL Ue memes s/) OCsc7 
1G2c FUKMAT (iA, "9 *¥ee GWHUL CKRKUK NUs 30 - ICURE MUST be EQUAL TU OK LOUSuUK 
*KcAICKR THAN OG. PEeHEE es /) O03uU9 
10545 FURMAL ULAy*eeeee INPUT cCKRUK NUs 39 — ¥S6 MUST BE GREATER PHAN 0600310 
e eeeewh SY //) 003i14 
104¢ FUKMAL VlAg' ¥¥¥4e LNPUT ERKKUK NUs 46 — $60 MUST bE LKCATER THAN 9.006312 
& #OER eI //) 06315 
L041 FUKMAT (1A, **eeee INKUL ERKUR NUs 41 - T6m MUST BE GREATER TaN ¥.00314 
- Benet ys /) 00315 
1042 FURMAL (1A,**#*##e® INFUL ERRUR NUe 4 — T3r MUST be GKEATER THAN 400U3i0 
70, FERNY, //) 00317 
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1045 ruRMal 
PewWUFL 
1044 FurMal 
* PWUAL 
1045 FuURMAT 
* cwUAL 
1046 rUKMAL 


(la, * eeeee GNKUT CKKURK NL. 
Tu Ue ROH //) 
VLA, * *#* iwhUT ERKUK NUe 
(U Us B¥OwHh ya s/) 

tlAy See e® LNPUT CHKUK NUe 
10 Ge #eeRe hy s/s) 

CLAg* #eeee INPUT EK KURK NUe 


ee ee eee Be hE s/) 


1067 ruUKkMaAt 
~ 
1646 FURKMAI 
* 
1045 rurkmal 


(ik, 2 O*eee INPUT cEKKUR NUe 


%. ANU LESS ERAN UR CHUA tu LLU. 


CLA? *#ee* [NRO CK KUN NUe 


ve ANC LeSS TRAN Un cwUAL IU 160.6 


CLA yg? #8 eee BNRUT EKRUR NUe 


40 


VEn sdf i/ ies 
1Ceu 11.53.02 


— FA MUST be GReATEK THAN UK Gu5.8 
UUSLY 
~ FAL MUST Be LRKEATER FRAN UK0G5.0 
udsel 
- FAM MUST bE GREATER frHaNn LKOUS<2 
CLs¢s 
—~ PKNUZ MUST be GkKeATCK IMAN Gusc4 
C035 
~ BL RMAC MUST bE GKEATEK Tr aniC3ce 


LELRrES ##MaRh Zs) UUS.t 


40 ~ ALPHAN MUST be Grtalcek Tr an0o3ct 
LELRtCES eee ss) Olocy 
47 ~ tPsl MUST be GKEATCR IMAN WG950 


eo cwUeAl IU Ge AND etSod INAN UM cCULAL Ib le HORE S/S) O0Ss1 
LOSU FURMAL (lA yg * POR OR ENRPUT Exkin Nue Su - EP Sm MUST GCE GrratTtn INAN WC a5c 
#K cCeUAL TU ve aANU ECSS IMAN Uc cwUAL IU le -aemm ty ys) UUSI9 
1651) rUKMAL (iry* ¥*8ee UNPUT ERRUK NUe 5a - FAL MUST be GKtATER THAN U.0U554 
+ HOw aBl es /) GU355 
1O5¢ FURKMAL ClAg* *#eee ANPUT EKKUK Nue 52 — Fam MUST be GREATER PHAN 6.06350 
° PERE S/S /) OGsal 
1052 FUKMAT (iXs**eeee LRU ERKUK NUe 55 — FAW CAN NUT CXACEEL STUIiLAiuOU3sb 
amcl Kil teb60) PHORM S/S) C354 
1054 FURMAL tlAy* *e*ee INPUT EKKUR NUe 54 — FHWL MUST be GREATER THAN buUS4U 
4. HMABN ASS) OuS61 
LOSS FUKMAL tlAg* 984 INU) LRKUK NUe 55 — FHWH MUST be Okt ATER THAN LDC 5346 
*. aeeeer, //) UOS4>5 
1G56 FUKMAL (lA, #84 INPUT EKKUR Nue 96 - CSL MUST BE LKEATER [HAN U20L 544 
* wNU cts THAN LA #eeeH hss /) ULI45 
LCS é rURMALD (lA, * #eee* INRUT ERKKUK NUe Of - LSM MUST be LKEATERK Tran U.UU 366 
* ANY LESS TRAN LA *e eRe 7) Ost 
1O0%e FURKMAL VlA,g* ***¥e INPUT ERRUR NUe 50 - rlLUW 1S SUPERSUNIL LN FAN SOC 35h 
*incAM AT (rt FLAMEHULUER YLaANe aeanet,//; ONS49 
1055 FURMAT (ikg * #***® INPUT eRKKUR NUe 59 — FLUW ITS SUFEKSUNIL LN CURE 90350 
*yincAM wf Tete FLAMENULUCK PLANC ¥eee hy / 7) vO3Sr4 
1O6e FURMA! (1k, eeeee INRUT cKKUK NU. 60 — NSU MUST Be LKCATCK FRAN UKOUS5¢ 
* rwuAlL TU Use ANU cESS TRAN UK cwlLAL TU 10U, seventy) vVuses 
1064 FurMAl Clay **eeee LNRUL ERKUR NUse 624 — WSm MUST be GKEATER ImaAN UKO0354 
* cewUAL IU Se ANU LESS FAM UK EwUAL TU 100, ##emet,77/) yvu3se5 
1Cee FURMAIL C1lAg* **#**® ANPUT ERKUK NUe of ~ NTC MUST be ORCATERK InAN UKOF 306 
*® cWvAL TU Use ANU LESS Than Un tyUal TU 100, #eeewt 7s) 00357 
1065 FURMAL (irks * O88 LNPUT ERKUK NUs 65 — NT MUST be LRCATERK THAN UnUU 506 
* culeae TU Ue ANU LESS TRAN Uk EWUAL fu 10U, omer ys) 00349 
1064 rUKMAL ULA,* ##***® TNKUT ERKUR Nue 64 — KESK MUST bE GREATER TRAN FUL S0U 
BSG SEBSET S/F) GGsol 
1005 FURMAL blA,y**#*#*** INPUT EKKUR NUs 65 = TALC MUST be LRKEATER [HAN 600562 
*. ANU LESS TMAN 45 PH ORh DS) OuUsos 
LOG FUKMAL UiAg 999888 INPUT ERKLUR NUse 66 — TAU MUSE bE GREATER THAN W304 
*. ANU LESS THAN 1, BOOOHh assy Cl305 
106% FUKMAT CLA, ****4* INFUT EKKUK NUe of — TEXT MUST ce GKEATEK IMAN WOUS06 
4h EWUAL TU 4600, #4 OBel,/s) GUseT 
LOek FUKMAL Vik, t o*eee INKUT ERKUK NUe 68 - TESK MusT be oktEATER THAN UL sob 
ek EWUAL 4¢0C6’ UVEOKEES & Paeeets//) UC30% 


10604 FuKMaAl 


CLA, ***ee* Lirul EKRUR NUs 


oF 


fou MUST Be GREATER THAN 40005/0 


114 


=—! 


PALL SERLAL 
“et Celeos 


a, ee ae 


PRATT & WhITNEY AikURArT OivisiUN Vek 12/07/76 PAGc SEKLAL 
CSG.PANT57 10.0 11.33.02 <7 Oclzoy 
20. Benet, /) 0U571 
1G¢@U FURMAT U1lX,*e*eee INPUT EKKUK NUs 70 — Tom MUST BE GREATEK THAN 4600372 
SU, Bement, s/) 00373 
1Oti FURMAL ChAg 9 F##*s LNPUT EKRUK NUe 7i - WEXT MUST BE GREATEK THAN UG0374 
*K EWUAL TU Co #BBBehG//) 00375 
1G7c rukMal (1x. *eeeee INFUT EKKUR NUs Te — ALL MUST be GRKEATEK THAN C.00376 
es BBBeEh//) 00317 
1075 FURMAT WlrAy? ##**ee INEUT ERKUK NUs 73 — Abn MUST BE GREATER THAN 0.003/6 
= seeents//) oCcs19 
107% FUKMAL (1X_°3**** INPUT ERKUK NUe 74 - WCUGL MUST BE GREATER THAN 96300 
* OK EXUAL TU Uet ANO LESS TRAN 1.0 %y 00301 
~~ teament sss) Ousod 
END Ov305 
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~ Sonam, ew nerer ® 
tet er 
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PRATY & WoLtINcY ALRKUKArE UlLVISiUN Ven 12/0 NS 16 Pave Striac 


CSGehANTE S lob. tL .S5e0e “6 O<idoy 
Cc VATA Scl BéoLrATMPL wat Ctvel OUlL #S UF Lc/CT/T0 £55 
FUNCEAUN FATMPLOUAD ocdul 
CUMMuli STADS tacdtcory audcteos OvO0Z 
CALL UNGAR ClAbBLeLerAp Ca ehAlTMrelyd OvGC3 
FAIMPL = FAIMP U00u 
Ke TURN OCOG5 
END 0G006 
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Cc LATA Stet BESUFATMPc AT Level WUl ad UF 12/07/78 E33 

FUNLTLUN FATMP2IxX) 00001 

LUMMUN /TABs TABLU BGO) TABcl4a) O0G0e 

LALL UNBAK (TABC ode Ad Ue rn IMPS) 000u3 

FAIMPe = FATMP OU0L4 

KETURKN oo06cs 


ENU 00606 
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PRATT & wrhlINtY AdmnUKArE Ul vi SlUN VER ad/OU/T8 PaGe SeRdAL 
CSG.rANTS? 10.0 tl esr0ve 36 Géicor 
c UaAlA St1T ocBUrMLUMb AT Levee GOL AS UF 1c/U7/78) £53 
SUBKUUTING FRHLUMb Gvdul 
CUMMUN ZFOLUTs FETAL) FETAM, rraACs FF AMsFLUB er Ll prin er LSL ort Shy Ou 
* rTols, Flém,y Rldthe, FLter, Feder, FLErM, rites rLetnys FLeEVes UWS 
* FLtVn Clete’ 
CUMMUN ZAUGIN/ JFUELL sNAUGUP pNCUMUP gNF SUP pNERNTR yp NPRNCUP uGGu> 
LUMMUN ZFLAMINS ALPHALC (LOC) pALPHAN( LOU) sFALLLLO) yy FAM( 100), Uu0ve 
# Friwl (100) pret tLUG dy LSU 200) pLSMELOU DyNSLL 100) yNONILLOD, Cobet 
* PFSRI GLICO)» TAULCLOG) pTAURC LOO), TEXTILE LOO ds FFSKAC1LOC) pIOLILOC), CU0Lo 
® TOmt dh Guba WEATL LOG re ALC CL GU) pALME LUO Pa NTU NT ovutiy 


CUMMUN /KMBLIN/BPK y DPUS, UPU, UF rig UPS eORPS gc PSELetr Smet Alec tAcyt tans GOC.G 
* PAgrAVeLA gh be LL olLiiok del held pMOL pMOM ge MONG PKNUL eh Sept oriedtrhyLEreL, vo0al 


* Leeds debe plZePy ZErPC ede Prigcc Fl ede Tre Zt Wee LEV ICUKE pWOUUL CcOle 
KcAL MUUTAsMUUTE pMOTELU MU Ir Vue MDIFLL eMUT EF UsMUUTFL OUOLS 
Rohl pMoCgMOrgLSU pL SrMyLigithylegin 0UUis 
COMMUN /CANP V/ ree PrSk ey hSs IF SK yp uFUEL®s VA eT Ag AR eo FAUsALPHAGrAK Oubid 
AgAL gtr Sy CUPM yrARMb pA SIKMyWEAl Ss TCX) OCCLo 
LUMAUN OT PUTS MUOTA,MUUTr pMULELO sMUIr VU, DE LAL ey be LIS) er b1I Dds OuGil 
ATLFUS bp eMOTFL pkl oe Sl eT crcXgboalwWy tT Atn OvGie 
AyULULDS) pO LE» OMD TU, OULU 9K IVU pUWUUI Ur VeSCU ge PS0g VWUyAUg tH SKC yc lad OcOLy 
Ke STALE LOC) gErSALCALU) pSELELOU) gt TAC 200) pNSTEr, TAErr C0Gcd 
LUMMUN /MLSL/ KnbAgmUAy ADULT HL yLULyFOWIMP GL ig KM oF rO,DLr (5) vuvel 
APOETAC (Dd eETAwyMUIFLlL sy TEC eMUULFL( 5) sFaRKWy STOARs FARE OuGce 
CUMMUN /CKVS/ CRVMUA1 44) 9 CK VAM (44) pCR VLAM Oo Dp CKVPV OS) OfGes 
Aa KVSL (56) pL RVPK (SUD oe TRUS (2bSsbyLKVTSLI2Z0) CCCe4 
Xe CRKVEPTEZO ID ERVET ECO) gURVP TR 1c) pURVSLEV16) PCHVEVE( LO eLKVISPI(LOd UVOcd 
UAMENSLUN CANPTOLE) pOTRUT (419) pKMASLI LY) Ul0<6 
EWUIVALENLCE (CINPT UL) per) p(GIPUTOL dy MULTA) OucT 
Ae (XMISCOl) shraAd Ovuvr<es 
LUMMUN/SSV/SAVIE NZ) 9 SAVIAL SZ)» SAVUTI 2), SAVFARI SC)» SAVDILI2)s OCs 
x SAVETAL EC)» SAVMUALL)» SAVMUFIZ)y LEVI ede LEPI2Zde LZLTIL ds GU650 
x LEFAL SDs SAVVAIZ Dy TEAAVG gt FAAVGs AMUTAU es FAKAVLeTAAVUSAMUTIFU, = O00S1 
K FEALT OLIGO), STMUTALLOO)s SIMUTFCLCUd, SETACLOOdsSTVACAiGO), O00L+< 
K FAKWR (LOO) pC TASC LOC de UTFLUL (L0G) pAIKU LOO) pETAAVPySAVLIU Che Vv0055 
A SAVER Me be SAVALSI cd ySLAGLOG dp SLEK( £00) pSLS(LOODySVFAL( LOC) 9U0 24 
Ay FALAVGs TEXAVSs AWILI1L0C)s SLO( L100) pSAVALBIC) Alte) GU0s> 
UUMMY = Ce vu0s6 
CALL GASTABDI <1 pUUMM 1) UUMMY sUUMMY »UUMMY) CO0s7 
FAKr = ie/tle — WEULL * (tle + OPKI/6RKD) GuGob 
OU cc 1=1,106 0039 
SvFACtLl) = racild C0046 
FALeGh? = FALtL) *® FAKE O004L 
@ CUNTANUE O064<¢ 
1Stk = ¢ 00043 
FIN = © CCC 44 
aepS = @ Uv045 
iPASS = 1 O00«6 
NE = NIL OvGs7 
1 bu > LNUEA=i NT GOU48 
AWTALANUEA)D = O 0004s 
kK = 0 CC OSU 
TP CUANDEXCER.s NTDIFIN = 2 ucGsi 
by 10) i= 4516 O02 
118 


PRALI & wraINcY AAKURAPT DiViSiUN VEK 12/07/76 PaGe SeKlar 
CSG.PaN757 10.9 41.35.02 3, O2l2oy 
4G CINYTOI) = COO 00053 
bu <O) L® ly4ay 00054 
<G ulPuTcad = O26 Ov095 
bu 3G) Te lycy 00050 
30 AMasctls = O66 00027 
1STKM = ASTK Cuddse 
CALL SETUP VINDEX,1 PASS) 00059 
Ph = 30144159 00060 
RNUA = 14%. F PS 4 IDS dFILTAt4OC.D) 0Cc0el 
ADULT = Friw / Tau OUue. 
MOLIA = KnUA * VA © AUULT / law. 00003 
MULIF = FAR * MUUTA 90004 
LF CAST RMI DO, 5b 60 06005 
DO Lace saNvELT (NDegiER) Gu066 
Ir ¢lenm e6T. GILU TU 1OU0 Ocoel 
meTrivu = ¢)1e - BIT » * MUUTr Ov0es 
MOTFVC = wolT = MOOTr G0009 
CALE wACLEL (NUL) Ouc7O 
Tee = Ut ovo7l 
UU #e 4b = bed OUGle 
40 1C = Tee * Terdl) 00073 
Tee = Tee 4 5. 00GT4 
bETAL = ae - (MOTFL)D / MUUIF) u 00GTS 
ble = le - emmTrcd 4 MUIPLO) Oct 16 
uMLTU = MOUTF - MUOTFLL ocor7? 
CALe CleclTENuL) OvUGTS 
od = MUTFC / (MUTFLASTAU) oucly 
CALLE RELCIRL Vudu 
IUNT = 1 060e1 
vu 16 2 = Led OUGe. 
TO Letid = ULtad 4 3ecoe-Oo0 GCOb3 
Chr SLVE PAIR) 09064 
drtn eGte OC) awThtaNnvberxd = A UGUbdS 
6G CALL FLAME (eR) OCOs6 
GU 1U 4 G0067 
oC CALE RELIKL GuGes 
rAKW = FAK GOboY 
ts = ie CG0%0 
CALL WARE (RUT LD vuovl 
FARE - FAR # FARMD GHO%2 
Call FLAME (itn) OCOy¥s 
@ COLL KRESULTEINDEAg FIN APASS) Gu044 
AP UAhS che UeANUe NPRNUP ote 2) CALL reiPKTCinucard GGoy> 
AP UANUER ote NE eANUe NER NUP otWe © cANUe LHS etwe OF GCUY%e 
SLALL FRPRKTGANUEAD Ou0yv7 
D> CUNT dnt GCOve 
Ips = 1 Ocayvy 
IrtaFaN wNew €)0U Te a 6v100 
NT = ATr OC lel 
Trtisth «G16 UIGU TL atc” Ovid 
JoTK f= 4 Gvule3 
ayes =e OUlL4 
IFIN = 6 06185 
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POOH 


OREM Ng 6 


Sa 


ou tu tk 


Lh UNCOMUP Nte2)) KE LUN 
ZCratid 
éurated 


rLere 
Fitrn 
FécPe 
récrn 
FLEIL 
Zein 
Fécve 
rLeVn = 


PETA SAVLA ELIF SAVMLAL LD TSAVE LILI FSAVMUAIS DIS SAVMUAGLITSAVMUAIZ) > 
FPLRK=CSAVLR CL IFSAVMUALL) eS AVLR 1d DF SAVMUALS B/E SAVMCAL1] © SavMUAt2) dD 


WRLC COeYYDIELEPL re LEP gh CErL yh Leer CETL opr LE THe rLEVC pF LEVEY 


PRATT & woiTNcY ALKUKAFI 
CSGerANTS? 


éerta) 
cerlé) 
acttad 
Pica i wa) 
éuevil) 
4UVigd 


FLoe = LAVALSIL) 
FES = SmVALSIZ) 
Fub = (SAVALBULIFSAVMLACLD 
SAVMLA Led? 
FeoTsl = SaVe TALL) 
FeTah = SAVe fale) 
Frac = SavFAK(L) 
Fran = SAVFaRIC) 
rlouw = savIaAtl) 
rlonm = savTate) 
APULe FUR sFUSL phi SH rub 
99S FURMATOTL LEFC 
Leve 
Avhdrluetes9* Feb 
btu 160 I = 1,i0u 
19¢€ Faced) SVFALIL) 
KE TUKN 
END 


+ SAVALG Lc DFSAVMULAI CDI ISAVMUALLIF 


12/07/76 
11.35.02 


OUlLo 
OulLT 
06108 
o0luy 
04410 
001i1 
OOli2 
Ovull3 
011s 
Olid 
GGlio 
Ovlay 
OOlis 
OO0lly 
00120 
OGlecl 
GO1L22 
06123 
001<4 
O01<5 
00126 
00127 
OGlcs8 
O0lcy 
00146 
OC1s1 
00132 
60133 
00134 
0€435 
00150 


PRATT & WHiTNEY AikKLRAFIT UIVISIUN Ver 12/07/18 PAGE SERIAL 


CSG.PAN757 10.0 11.33.02 33 021264 
J 
c VATA Set b<é<bURMPKE wt ceVek OOL AS UF 1Z/NTZT6 £33 
SUbKUUTANE FRPKTCANUVEA)D 06001 
KEAL LU Sreh SL pMOM MOL» LALO oLU ol tigil pL K9l2 yp MOK 000uz 
UIMENSAUN FUELTI2) OCOGs 
CUMMUN /UTFUT/S MOUTH »MUUTF pMOT rE OC pMUTFVOsBETAL SEC sDLIS) yb1I >), 000s 
| KUL US) PMUTFL eR LePSL De TL ERX a bon thy tTartn Ovu0U5S 
AyULLUD Doble» UMD IUs BU ok IVU pUNUU IU Vo SLUSEP SOs VUrX Ort PSXO st TAU OC0u0 } 
Ae STUsALCLOO) pEHSALULOG) pStat Lud st Tal 100) sNSTEPs TAEFF ocoa7 
CUMMUN /MLSC/ RUA MUM AUULI PL ep LUL eFRWIMP 611s KMeTFO,OLF U5) 000Cb 
APDETAC ISD pe T Awe MUTrLd gp TLC pMLUTFLI DD pF AKwy STOAKs FAKE OUbus 
CUMMUN /CRVS/ CRVMUAL44 ) pC RVAMI 44) LR VLAM (Ze pL KVEV E24) 00010 
APERVSL ASOD pLRVPREZ0) DROPS (cbs) pCKVT SLI260) Oo0041 
CUMMUINSSVSSAVTE MZ 29 SAVIAC SIs SAVUTI2Z Dg SAVFAKI CD), SAVDILI2Z)» O0Gaz2 
A SAVEFAUZ) » SAVMUAL CI)» SAVMUF IZ)» LLVIZ)s ZERIZ), LETI Sd» 000.3 
x LLFACZ) 9 SAVVA GZ De TEXAVG 9 E FAAVG, AMUTALS FAKAVG ep TAAVGSAMUTFD, OC00O14 
A TEXLT ALGO)» STMUFALLOG)s STMUIFI LOO)» STIALICOreSTVALLOOD, Gu01d 
A FaKwaR (100) ,ETASC LOC) pUTFAUL( 100) paTRI1LGO),c TAAVPySAVLAAN2Dy 00016 
x SAVER (2 Dp SAVAL SL ede SLIGLUG) pSLK( 100) pSeSthuOd,SVrali100) OuGrT 
Ae FALAVGs FEXAVS pdmi Li lLuOds SLI LOO) pSAVALBI cde 1Lic) OC0 Lb 
CUMMUN /CAINPT/E RW pPESK eo hSy Tr Ske JFUELs VAg Tas Abs TAUSALPHAY FAK OOG.y 
AgAL gtk SeCURM pPARMD eg ASIRKMAWEAT, FLAT 000<0 
LUMMUN /AUGINS SFUELL sNAUGLUY 9 NCUMUP oN SUP pNPKNTR » NPKNOP ObU<eL 
CUMMUN /FLAMIN/ ALHPRALL LOU) pALPHANML LOG) FALL LOO) pFAN(1OC Dy O00dz 
* rrwl (100) prim t LOO) pt S04 LOU) EL Smt 1 WO dy NSLU LUG) eNSOH1100), 0C0<3 
* PFSKL 6200 dp TAUCC AOL) p TAU 1 LOU) pTEXIL 04000) TESK1L(100),TOL(100), vl0cs \ 
* FLOM LOU) op WEATII1LO0) p ALEC 105) pAcrt 160 by NTU ONTO 000c<5 


CUMMON / RMD LIN/ DEK UPL Se UP Up UR rg UP AS PDFS cPEPSL pt hSHeE TAL st Tare tlanysy GU020 
* rAgFAVelLAgl bel gitiglL ld pine lhc eMOL pMorty Mong PRKNUL pr SOT ang LEre LZtrl, OF0c7 


* Lebriy eee per ey LEP ydePry dc Uc Zt my ZE VE yZE Vy WLURt y WOUUL GUGce 
DATA FUELT /4mh sP4, 4m UPd/ 00029 

i =0 00050 

101 FURMAL Girth 9 7Ae *#*® CUMbUST LUN MUDEL KESULTS #44) 00051 
LF UNF RNUFA1 116,100,160 0032 

AC Lr a StKMI11914 954 66633 
Ll LFCANLEX «Nts. NICIGU TU ¥ObU OCCs4 
OU ¢clU Jy = ly NTL 06C5»5 

220 Ir (Iw dltud ecWedd wkKite (6, 140) 9 0030 
140 FURMAT (* ##*® WAKNING=----— WAKE TEMPERATURE LPtKATIUN rALLEU FUK 00057 
ASTREAMTUbBE NUs 8943) 00056 
WeITE(OelUL) NAG>s9 
WRITE (69103) ‘ 0C640 

103 rUKMAIIs/O 1A * FAN STKEAM") vuG4) 
WKifte (oriGe) O0G42 

Ge FURMATI//0¢4_* INPUTS) 00043 
15 wRKiTceloslus UO 
1G4 FUKMAII SOAs SIKREAMIUBE = NuUe UF Ince InpPul thFeClive Fn 0O%45 
K BLOCKAGE MACH / 60040 

x sDAe* Tree Tnhls VyPe TEMP F/A KATIVU F/A KATLIU WivtOlO4s/ 

An KATAU NU. Ld 00046 

A STAs "Oto K O**LESS U**LESs IN. GU049 

A De ess D**Less "/4) G005uU 

2 pe. 5 & 4 Qvos1 


foCil») = TOCtL) + 400. 0005¢ 


PRATT & WHITNEY AIRCRAFT DIVISIUN Vek 12/07/78 
CSG.PAN757 16.0 11.35.02 
WRITE LO, IOSITyNSCOL Dy TOCKL De SVFAC (1 Dy FAK, Frwy FAULIL ) MOU G0053 
105 FURMATUS5SX glee TAp ide crot Yel eh YotelXeb Vere i Xe Vode t Bort ef Yo) OU0 S46 
C 105 FURMALIS5X eg lLOedAg LO gerer volar ledger Ye elke sho) oc055 
Torti) = ToClad — 460.4 OCOr6 
ir¢l ebte NTCIGU TU 3L OvG57 
dr (a elt. SU)IGU TU cu OCCLs 
WRITE( 6,166) V0GSY 
106 FUKRMAILIANISZO1X es *FAN STKEAM (CUNT) ®) 9CG6O 
bu TU ls 00001 
3G SAVTA(L) = SAVTA(1L) + 460. OL0o2d 
whITE( Og lLUTIHS,SAVTAG1) pSAVFAR(LD 0CG03 
SAVTAGL) = SAVTAI1L) — 400. O0CO04 
LO7 FUKMATI/40X%s PSTATIC OPKESSUREI PSO) = *sFlle4,* PsIA * / 00065 
A 0X," AVG INLET TEMP (TOL) = "sFliets® DEG KR * / Ouloe 
x SOA "AVG ANKUT FeA RATAUIFAC) = *ghtilese*® OF ESs®) Gu0o7 
LAC7 FURMAT(I/4UX—5 PSTATIAL PRESSUKEI( FESO) = *,Flle4s* PSIK * / OCC68& 
x SOXs* AVG aNctt TemMr (ion) = "sFllet+es*® Ot’ kK * / OCboY 
x 40As* AVG INPUT F/A KATLU( FAH) = “prlless* Uf *Lcss*) OvOo7G 
WRITE(6,110) ovud7L 
L1€ FURMAT(LHI//ELXy*UUTPUT'D? Ov072 
WRITE (Oe1U5) OCO73 
So WhlTetorail)d CLO 14 
LIL FURMAL Is SCA g*STREAMTUbC WAKE FAA LDEAL TEMP CUMBUSTION EXIT ® 7 OLOrsd 
A 4UAe* TYPE KRATIL KI st cRrALAENCY TEMH® 4 OCOl6 
K 4CX,* UFCESS OrG KR OFLESS Utvu K*10U077 
1=o v007s 
eG btu ea COCts 
TexaTtid = TEAAT(A) + 460.2 ouved 
WRITE (6 plicdIsFARWKO] DeOTFIUL UL Dp tETAS Cady TEXITOII) OcCbl 
FeXlT¢ly) = TExLT(L)d — 400. COCeb2 
L1LZ FUKMATU/S0Ag 1D LA gr Ll ot ec Ket ll ote tBoGy sre blled) Oube3 
lr th .GE. NTCIGO TU VU 00064 
aF (1 tT. 5O)Gu TU of O0Go5 
WRITE (O%106) C6056 
bu 10 55 COUsT 
WC SAVTEC1L) = SAVTECL)D + 460. OUCsE 
WRITE Cog LIS) SAVUTAC LD pSaVETAC LD ySaVTE dL) COCby 
SaVTeEC1) = SAVTcCI1L) -— 460. OvucyvO 
113 FUKMATIS/41X 9" AVG LutAL Tk fik waist = *yFlle4s* DEG R* / OHOy¥1 
x 41k se AVG THERMAL LUMoe EFF. = *,Flle4% / OvOY2 
x 4#1Xe*AVG DUCT cXIT TEMPEKATURE = * Flle%s* OFG RK * ) uvds3 
bu TU 9CGO CCC¥4 
34 WRITE (6,106) 000%5 
WRITE (69192) 00046 
1U6 FUKMAT (INL: 4/600X,*LUKE STRKEAM®) 00047 
I=0O 00096 
35 wK1iTE(G,1104) Co0yy 
1164 FURMAT(US35Xe*STREAMTUBE NUs UF INLET inruT F/sri BLOC KAOOC100 
AGE MaACn ‘7 oo1c1 
x S5Ay*TYPE Teas T¥YhE TemMP F/A RATLU W10TH KATiU O0lU2 
K NU. ‘7 00103 
S1Kks "LEG RK Of*LeESS INe U8 * Le S501 04 
x B® *Less Ov1lG5 
122 
| 
| | 
AEE OOO. tan RIP PRS I ee = _ hea ae 
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StKiae 
Ucleoy 


“Fyre 


PRATT 
CSG.P 


4c 


11065 


109 


50 


LP) 
6C 


9c 


100 


lev 


114 


lid 


& WhITNEY ALRCKAFT DIVISION 
ANTST 


lLelel 
tontl) = Tontl) * 460. 


VER 
10.0 


WRITE (Ge 110504 pNSHUL) pTOMC Ld FAN (1) Feiwel 4), TAU 1) »MoH 
FURMATUS5A gh Se TXe dS ere tGol pFUowelX oF Gorp Food elXetVo 4) 


Tomtad = Tonmtl) — 4600. 

1FCL eGke NTHIGL TU 50 

LFUL eh. 90) GU TU 4 

WKITE(O,10S) 

rURMAT(1M1//60X, "LUKE STREAM (CUNT)®) 

vb Tu 35 

SAVTA(Z) = SAVTAIZ) * 400. 

WKITE Ce, LICTIPS sSAVTAI2Z) pSAVFARI2) 
SAVTAIZ) = SAVTAIC) — 400. 

1=0 

an Tet oellU) 

weltedoebadd 

Tte=.lel 

TEXATiLd = TEAITIL) + 4600. 

WRATEC Og LIC Ae FARWKULDSUIFLOL OL de ETAS (LDS TEALIII) 
TEAATOCA) = TeEXaTtad — 460. 

LFCL eGEeNTHIGO TU 90 

IF(i eLT- 50060 TU 80 

WRITE(6,109) 

Gu Tu 75 

SAVTE(Z) = SAVTE(2Z) + 460. 

WKI Tet oellZ)SAVOTL( 2) oSAVE TAC Cd) ySAVTE (2) 
SAVTE(Z) = SAVTE(2Z) = 4600. 

GU TU ¥L00 

AFCISTRM 6GT. OGU TU 200 

FURMAT (IHL) 

WKITE(Oe129) 

LEUASTRKM 2EWe O sANDe INDEA ote LIWRITE( 6,101) 
WRITE (6,103) 

WRITE (6,114) INDEX»NSULINDEX) 


FURMAT(//40A_*STREAMTUBE TYPE = *,llis 
x 4OXe*NUs UF THAS TYPE = *,111// 
x O4X,"INPUF * ) 

TA = TA + 460. 


TFSK = TRSK + 460. 
TexT = TEXT + 460.6 
TAEFF= TAEFF + 400. 
AF CAWTLCLNOEX) EW el) WRITE (65 140) INDEX 


WRITE (69115) PS— TAs MOC pSVFALUINDEX) pFAK pt rim pTAUsALPriAy TESRy 


APF Sw oXF eAL PERS pWEXT TEXT» FACPRe FUEL I( UFUEL) 


FURMAT(/4UX_ "STATIC PRESSUKE (PSO) = "sFlleae’ 
x 40 Xs *APPRUALH TEMPEKATUREL TOC D= "eFileee® 
K OX, *APPRUALH MACH NU.( MOL) = *sFll eae 
x 40A,*INPUL F/A KATIUCFAL) = *sFiless® 
o 40%, *EFFECTAVE F/A KATIVU = orlleaws® 
x GX, *F/m WADT HC FHWCl) = "Files? 
x 4OX» *BLUCKAGE RATIUITAUL) = “eralese® 
x SOX *F/H APLA ANGLE LALPRAL) = *srlleae! 
x &CAy*S/R FUEL TEMP LTFSR) = *sFlle4e’ 
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Psla * 
DEG R * 
O**LéeSss* 
O° *LESs® 
O**LESS* 
INCHES® 
Of *LESS® 
OLG id 
DtGR * 


cy NNNAN NN 


12/07/78 
41.35.02 


00106 
06107 
00108 
00169 
00110 
00111 
OOli<g 
Oulls 
OUli4 
00115 
00116 
06117 
0e118 
00119 
OCicO 
OCicl 
001le2 
001<3 
001<4 
60125 
OVl<co 
0Ul<7 
OC1l<cs8 
00129 
86139 
00151 
00132 
00133 
00134 
00155 
00136 
061357 
00136 
00159 
00140 
Ovl41 
O0l4sz 
00143 
00144 
0v145 
00146 
00147 
00146 
00149 
00150 
¥0151 
00152 
00153 
00154 
00155 
90156 
OC157 
Uvl58 


PaGe 
35 


SERIAL 
O21209 


PRAT1 «© whi TNEY ALRLRAFT OCLVISAUN 


CSber 


lio 


Llo& FURMATUI/57As SRLAME SPREAUING® 


12: 


121 


ANTST 


ee we ae ee ae 


TA 

TrSn 
TEX 
Tatkr= 


x 
A 


@GAe*S/K FUEL PRESSUREGPFE SK) 
(GU F/¢m OLSTANCE (LSU) 
fu NUZZLE DIST.IXLL) 
4UAs *FURBULENCE LEVEL VEPSL) 

4X, *WAKE FLUW ADUATAUN¢WEXI) 
409 *FLUW SUUKCE 
#OX,*tFFECTIVe ANCET TEMP. 


4URs P3/n 
&OX, fr /H 


4OX,*rUEL TYPec 
Ta = 46006 
TFSK =~ 400. 
TEXT = 460. 


TaEFr ~ 460. 
WeAlTetoelcb) 
FUKMAT (703 X, *UUTPUT®) 
WKITE (Oe 116) 0.013) ,b6iT 
Lio FURMAT(/,01Ae* INJECTLIUN®/ 


4#OXs*Mt aN DKOPLET Olde 
4O0X>"FLASH VAPOR IZATION 


Tw = Tw + G60. 
WRITE COsL LT) Be TAL, bey D3yK1 prFAKW ye TW 
Lid FURMAT(544 9° WARC CUMPUSITLUN SULUTLUN'/ 


=~ hw OM 


4OA,*BETA 
4OX,*bETA 
OX s* BETA 
40K e*K1 

40K s* WAKE 
40K, "WAKE 


fw = Tw - 460. 
WeiaTEtoellL&ISLUSErSYU 


A 
a 


- 


2 

3 
F/A 
TEMP 


4OX,* INITIAL srEtD 


4OXe* INITIAL FURBULANCE 


TEMP (TEXT) 


/ 


VeK 

10.0 
= *sFliless* PSIA *& 
= "skllete® INCHES® 
= eFilets® LMencs® 
= ®srlles*® OF %ESS® 
= *eFllewe® OF *LESS® 
= *sFllew,* DEG K * 
= *",FileSs*® DEG KR * 
= eke As 


= "sFlLe4e*® MICRUNS*/ 
= *eFllewe® OF FLESS*Z) 


= “erllets® VILESS*S 
= "“srlledSe® O® *LESS*/ 
= eFlleasy*® OF *LESS*S 
= "eFllede® L®*LESS*S 
= "sFlieHe® OF *LESS*/ 
= "srllews* OEG R *) 


= "sFll.#,* FPS “/ 
= sFlle4e® VO *LESS*) 


bcALTOINDEXD = TeXLIIaNDEX) + 400. 
WKATE boa LL YIOTFLOL( ANDEX) sETAS(ANUEX) pATRU INDEX)» TEALTI INDEX Dy 
A STMOTACINOE XD, STMOTFCINDEA)D 
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SUBKUUTINt LNPUT ( Ay Be LMEGA, KASEs KVy IFIKST ) OvoL? 
CUMMUN ZAUGIN/ JFUEL, NAUGUP, NCUMUP»s NFSOPs, NPRNTKs NPRNATE OUCLs% 
CUMMUN /FLAMIN/ ALPHAL(1LU0)/, ALPHAH( 100), FALLLOO)s FAHLLOO Dy, OCOOy 
* FHWLULUO)»s Fret l OO), LSCU1LOC)s LSHC LOC)» NSC(1CO), NSHt1OC); 90010 { 
* PFESKRELGO)» TAUC(CLOO)» TAUMULCO), TeX (L0G), TRSK(1L00), TOC4100)y OLOi1L : 
* Tort lOO), weExTilLOUr, XLCCLOC), ALMILGU), Nils NI OcCie 
CUMMUN /KMBLIN/ BRK, OFUSs OFUDg UP, UPHSs DFS» tPSLy EPSHy, cTAy ULOis 
* cTACs ETAHy FA FAVe LAy Ly Lye Lrty Lly LKe Lede MOCe MOH, Mok, O0014 
* PKNUL» HS6y T3hy ZEFe deel, ZtPHe Ze rey ZePy Lebly Le Pry LeThy OcOo15 
* ZETHy ZEVCy ZEVey ICURE 0C0.6 ; 
CUMMUN /FHUUT/ FETAL, FETAHs, FFACy FF AmeFL Bey FL] pPLK ys ELS gti sty cceui?r : 
* FTOL,y FTOny rlerl, FcErhy Flere, FLEPHe FLeTes FLeEIHs FdteVves CCOas ‘ 
*® eLeVn ucolgy 
UVIMENSIUN ALT5e¢¢5)_5 BUSS) 0C0<.0 
CUMPLEX Ay So & CvL0el 
UIMENSIUN IP (il) LVELL) AK O1L) 0602 ¥ 
UIMENSLUN YOCLL ye TAUCAL oC CLL Dy FELL Dy TRELD GOLD) PKCD? 96003 ’ 
OiaMeNSIUN TAUFELAD PFC LAD oe VE CLL ds KF (LO) GuGes 
DIMENSLUN TAUGEL1L yrOC11) yVOULL yKOIL 1) O6Ced 
OIMENSIUN Talwtllir,oUri ll, TAvEt1l) CCCee 
UIMENSLUN TAUFLOLL) »TAUGL (Lid sTAUEL(L&’D OCOc7t 
DIMENSILN TAUFe (11) »TAUGZ ELL) yTAUr2ilid UNC 
CUMPLEX FuskKeFUe th stb ott ptu sth de gtolytElytid ytOlLytOH 900¢9 
REAL LLelLA gl Calde Mad Volt aM yMOL Mbt, MOK ey KNUCeL SC gi Smal b CCGsc 
REAL LAL gL RC gL pt hhy il pi net dy LSCKUM, LSHRUM GCGst 
C VAKIABLE LEFINITIUNS 0032 
C LPs del Vid pik od = PRESSURES VELULITYsDENSITY AF STATION v ty=l-11) OLC53 : 
C learig i Vey inde = PRESSURE eVECLULATY,UENSITY AT STATIUN 2n UL 044 
| C Par, iVsHylkan = PRESSURc pVELUCITY,UENSITY AT STATLUN 3n ALQs5 
C IwW3,lW3m = MASS FLOWKATe AT STALLUN Sy5n OCLCs0 
C IWIN, LOUUT = UPEN LUOUP HEAT INPUT gUUTRUT UGOsT7 
C VAKiABLE NUMBERING CUNVENTLUN OCC5E 
VATA LPS Lye Sp FeeO ged 59 kOe dy 5h 935958 p41 OU0s9 
DATA 2V/ de 5e Bedled4ec 193953930959 24S 00040 
DATA LKS Se Oe Yedda Zdy cba sig 349371940 gH 5/ 00041 
VATA LPStHylVSrtylKsH yi betty lh Vere LKZH/10 pllyliZvloyl4el5/ 9LUse 
DATA LUANgdwoel war gl QUUT/LOg1 79 iB e197 CLC4s 
DATA & #1186. AE Ve 4 11*G. Fy © Sf 118036 4s LH / Oe 7/9 OL044 
* M/s 11806. fy MH S Ue So F 4 LLCs Sp TK & i180 Zp TH / Ge sy 00045 
* PR / Li*Us Sy PRHUT / Ce 42 G / 1140. Se Gos On Sy OCC4Ho 
* TAU / 1180. Zy TAUR 7 11*0. Zy TAUFH / Oe Ze TAUG / 1140. sy 90046/ 
* TAUGH / Ge /y TAUF / 1itGe Zy TAUEH 7 Ue Ze TAUY / 1Li*le Sy OCOse 
* AUF SE 4 41906 Ze TAUG2 / LL¥L. Zy TAUESZ 4 1180. Ze PR SZ 1190. 4 OCO49 
* ve / 11806. 4s KE ZS LAPGe 4s PL J LIBC. Ze VG / LIU. Ss 00050 
* KG / LatGe Zp WUK / L106. ¢/ OCO>s1 


CC FREER ERASE ESSERE ERASER EERE RE OE ERE SE A EER SERRE R EEE EEE EERE OvOSse2 


PRATT & WrhlITNtY ALKCKAFT OIVISiIUN 
CSG.PANID7 


c 
c 
c 
c 


ADU NPKNTF 


uuTrul 


NAMELIST /IKNSFER/ FETAL, FETA, FFACe FFAHy Fibs 
Crip PLERL, FLERM et LEPC» FZEPHytlETLy, 


* rusty, 
2 réicvn 


rTol, FT 


NAMccl St/uyl 
NAMCLAiST/FANL 


x 


NAMELIST/CUREL 


A 


NAMELIST/FANP 
NAMELIST/CUKEr 
NAMeELiST/VSUUT 


x 


NaAMELiAST/LN 
NAMELASI/YLY 
NAMELLST/M 
NAMtELAST/LY 
NAMcLiST/b¥ 
NAMtLiaSlsTy 
NAMELAST/PRY 
NAMELI ST/ST AUFS 
NAMLLI ST/ST AUG 
NAMELIST/1AUES 
NAMELISI/U0FE 
ir (NUCUOMUP .NE.Z) GL TL 1 


ETAL = 
ETAn = 
FACOl) 
Fanil) 


FETAL 
FET An 
= FRAC 
= rrAan 


Es * Pek 
tn = FLUK 
tb = FLE 


Lsceh) 
tomtl) 
ToCtl) 
Toni) 
2cre 
dcrn 
ache 
ZcPr 
Zele 
ZETH 
écevl 
4tVn 
Lh FAUKUM 
FankUM 
LSURUM 
LSmruM 
TOoLRUM 
Tonnum 


opow 


wr 


rLSC 
FLSH 
Tol 
tTén 
Fie ru 
Fetrn 
rcerc 
FLthh 
ret IC 
FitTn 
récVvue 
Fat Vn 

= Falil) 
= FaAntl) 
LSet) 
wcontl) 
Tocwl) 
Tontl) 


vewn 


CrANGES Kec QUIKEO 10 Mate wlin F/h COMbe MUUEL — 


SOHSELESER ELAS SES PERSE ESE HESS SEEKS ESSERE SEES ESSE KESTER ESE ESE 


7KNUL ey FAA gE TAAB yUTIAB pUTAD eT OM, TRUS XLHV 


UTC AULT, 
DT, fAUDL 
JUTH pH 1, 
OVintys FAUOn 
42Tre 

7ZiFn 

ZOTgdoTE 
LIrsrAVIT, ToMy Thy OTP pLTiTsral 
7L 

4G 

sMahn 

4Jertn 

/oybn 

4T,Tn 
7PRKHUT 
/TAUR, TAUFN 
7TAUGs HAUGH 

/Tavts Fave 

7uuUP 


12/07/78 
11.35.02 


Ouww>3 
OCOS4 
occ55 
00056 
O0057 
06u28 
00C59 
OGO06U 
Ov0ol 
000c.e 
00063 
NC O64 
90005 
U0U66 
CCOo7 
00066 
O0C069 
cocieG 
04071 
OCC le 
Uvbs3 
OUGls 
Oovor1s 
Ov076 
oco?? 
0001s 
ocory 
COOKO 
00Gol 
G00K. 
CNO63 
O0064 
0065 
OcCbe 
00087 
O00U68 
O00syY 
00090 
oces1 
Ou0v2 
CCCy¥3 
OvO¥4 
OLOy5 
CL0CYo 
OCOv7 
O009e 
Gotyy 
001v0 
colo) 
001.2 
Ov1le3 
C0104 
Oc1le5 


a 
pS oh ee 


PRATT & whlINeY AiKUK ART UlvisiunN Vek 12/00/18 Poo Scwaar 


CSG.HAN SET 1C.u Albesseu2d 56 U2l2o% 
S= CMFLA (Uey UMtGe 2 UUL1v6 
ir (irikST oNE. © 2 GU TU 30 Colic? 

C Luemrk mLALING VALUE LF FUEL 00156 
Ar(oFuUtl ete 1) ALMV = Lloosb. Chi “y 
Ir (uFUEL etue 2) ALNV = 18550. 961,10 

GC Marcel TOMMeRATURE beFioRt ANY CUMbUSILUN Oulil 
Tom = BRK Let CHRD FTOLKUMF1 0/416 *6 PK DT OmMKUM OO112 

C Vilawfcv ra GeErUREL aNY CUMBUSTIUN Ovi.3 
FAVil = FAV/¢1.+bRKD 09114 

b TU (9 fy 6 dy NAUGUY 9Cll> 

6 CUuNTANUL O0Olio 

CRORE EER EOE VEC OCUTLTI CK CUMDUST LUN £*# ** #88 eee eee ee Be ee OC] LY 

C FAN SERKCAM TemMbtkATURE Riot OClib 
CALL TIULAL Fr AL KUM Lee HS0y IOLRUMGALNV 9C11L9 

A UTALyULAPEUILICyFATUs IPL ge dTrld CG1<0 
wane = UbILFE TAL uci2l 
ThECU == LeCRUM*bTe O9122 
C CunKt STREAM Te MPtRATURE Ride 60163 
CALE TILEAL CFAMKUM eS FAV ph SG ey TOMRUMSAL VG UCL2L4 
A LVaingbtirn blalmyratny Tene dfend Ctids 
Ulin = UTIL TAn Oulco 
Trut = TonkUMTUIn OOleT 

C AUGMENT CR MLArO cAmMAUST TeMPtRnaAtunc Oolct 
PAC = beRs (Let OPK DFTCULU TL e/ tle toP a detTnul 9ClcY 

C FRALTIUN UF TUTAT MEAT KEELE ASE CUONIRACUTEL bY FANyCURE STKEAMS OC150 

weed = ce Yelsl 
ure l = ° VOls2 
A = BRR*UTCeL IN 0u1ls3 
AFUA eble Gedwewl = CRYR¥UIL/X OO1Ls4 
LrUA eGle Ge durnel = OfnsXx% Of lsd 

C AULMENTOR UVERALL FUECL/ AIR 9C 150 
Fake = BRR Le TOR RIFFALCRUMTL oe / (Le tO KK PSF ARRUM OCLs? 
GU Tu » CC136 

1 LUNE Nur O0C139 

CEPR EAE HEE EER EEO HEHE VUKD LA CUMEUSTIUN 44848 48 +e eee Re eee eee OL GU 

C TeMrenatunc eiSt vele. 
CALL FLUtAL ChAgFAVIT sh SG, LOMyALHVy OGlezZ 

x UTisUTibh elt atlyralyteyZir od OC14s 
f= cle*uti Uv1l4ss 

C AULALNTOR Mike U cCAMAUST TemMPtRKAtuRe COl4s 
Trac = lomeul OGis6 
Feat = FA OC l4s7 

tu y 0OL46 
8 CUNTLNUE O01lsY 

CORRE OTERO RARE EERE RRER® Swine CUMBDUST LUN #89 OO OE e OR OER EERE OC LEU 

C TeMrexAlurne KiSt OGislL 
CALL FEILUEAL (ra gt AVal sh SO, TUMpALHV, OC1s52 

A UligUTAPeUTAF rally try lth) OVl>DS 
ut = elAeula OC1L54 

C AUGMENTUR MALU LAHAUST FemrenAtune C155 
TAL = Tomevt OClye 
hak ra OUid7 

9 LCUNTAINUt 0C158 
144 


a eee SS —— a sos rani . phi 


PRATT & WHlTNEY ALKURAFF OLVISIUN 
CSG.PAN757 


C AUGMENTUK OVERALL EFFICIENCY 
CALL TIVEAL (FAABeFAVITyPS0¢TOMgXLHVy 


x OT LAB »UUM,UUM »UUM,0UM,UUM) 
DTAB = TKL - 10M 

ETAAB = LTAbsOTIAB 

C COMBUSTAUN ZUNE STATLUNS 

NU = 5, 

ic aes 

KLE = 10+N 

RUM = KC-1 

DCD = IC+l 

LUM: = it-l 

KePL = KC*lL 

C LENGTH CALCULATIUNS 

ul = AMIN] (AMAXLIL1 Ue del b-le?d 
un = AMINICAMAXLILK pLitledy lb) 
L(2) = ce 

Lic) = AMINLIL(c)eLU)d 

ib = AMINLIL6eLAD 

Lis) = LA-Lb 

Lil = LUL-Lte) 

Li4) = uel 


UU 1.4 J=iCyKCM1 
14 uty) = (LR-L1d/NC 
LERC) = LA — L(5) = LA 
C STATIUN LUCATAUNS KeFERENCEU FL STALLUN 1 


Yetl) = C. 
OU 26 y=2eKCPL 

20 Yotud) = Y¥eluKLieltu-i) 

C TEMPEKATUKES 
Tdlo = TeLkUM 
fted = ti) 
143) = Tle) 
Tr = ltornkUM 
Ti4) = Tom 
Tyied = Tle) 
T(KRCD) = TRE 
TERED = AMAXLEITOKRCD  TO1C)*1.001) 
bu 12d J=iICh1l KCl 
AK = AVEC HKYLEIC DIZ ILK—La)D 
A = AMINL(AMHALLA Cod ele? 

15 ley) = TELCd+eTEREI-TOULEDD®X 

C GAMMAS & SUNILS 
Gr = 14 5—FeO4E= 59TH le G7 -tFTH | #e 
tn = 497.1 ¥*SuURTIiGn FI fF 


OL 13 J=1lyKCP1 


GtJ) = 164E-F O4E-S4T (ud +l. 47TE—b8T( pee 
13 Civ) = 497 ol *SUKRTIGIUIFT (dD 
C MALHS 
Mol) = MoL 
Mi2) = mil) 
mia) = M(2) 
M14) = MoR 
145 
Pin a ——— er a 


12/01/78 
11.33.62 


OC1Sy 
0vl60 
OOlel 
OGloz 
00103 
NOLO 
90105 
OC loo 
Ovl67 
OC1o& 
OLloy 
90170 
¢0171 
OC1lT2 
0c173 
00174 
GO175 
OC176 
OCLiI7 
99176 
oclly 
Oc lec 
CocleL 
VuUloe~d 
00163 
Ocles 
HOleD 
CC146 
Ovle7 
Oc1les 
Ouicy 
ocive 
9v191 
COlYe 
001ly¥3 
CCly4 
90195 
OCvlyo 
OUisT 
OO 198 
OC1LYy 
uv2l0 
OCgLa 
Ovlele 
00205 
CCLbe 
COZu5 
OCeCo 
OFeC7 
Ovuzro 
COeuy 
00210 
G2. 


PAGE SERIAL 
5¢ O¢leoy 


PRATI & will 
CSGerANTS7? 


mile) 
Mr 
PRHUT 
bU 1S 
Tks) 
x 
PRs) 
PRKAUT 
19 Miutl) 


NeY ALKURAFT UIViSiUN 


= M(4) 

= Morn 

=le 
J= il KC 

= TeutsdsTtus 

= LetGi sd) ete 

= DOK DRSURTIXERC He HL A- LODE IKI) 
= PRKMUT*PROJ) 

= M(SI*SUKTIIKI SIS EKO) 


C DELAYS UPSTKEAM UF CUMbUSTLUN ZUNE 


faun(h 
TAUPH 
TALGH 
TAUrn 
WU aZ 
TAUtU) 
TaAur lu 
bauGlys 
le TaUciyv 


) = tn/Ctn 
= TAUM(LIZ(Le+Mrd 
= bAUHCLIZ¢ Lem) 
= TAuntlLi/en 
Jv=1,1i1CM) 


= Ltvdb/lis? 

y= TAUCsdIsOLetMid) 
d= TAU(II7E Lem) 
d= TautvisMtyu?d 


& DELAYS DLUWNSTREAM UF CUMbUSITIUN cUNE 


J 
laulu) 


= KC 
= Lisette 


TAUF (UID= TAULa dE Le tMtu dd 
TAUG Ly d= TAU LUISE L oe mMtudD 


TAurly 


v= TAULSI/MO SS 


C CUMbUSTAUN ZUNE UrLaYs 


Ou Lo 
TAUIs) 


v=ibynCm) 
= LivisClue 


TAUF UID= VAULIISET KOS pmb PHC oe SMU FAL UG 2 oe MIS D FSURK T 


A 


CTrdud dd sel e tMtuddd 


TAUGI I= FAULUIS EEK (dd be Dee FMVS DFALUG UL eM D7 


A 


CLe—mM( ud FSERTITKI dd OD 


TAUECVI= TAULSISETK IS dm de DJ MC FALUGLI TK OD) 


TAurls 
x 
TaAuUGLS 
x 
TAUELS 
TAUF ZI 
tAULZ ¢ 
TAULE 4 


C VULUMETKIL 


16 wuriu) 


SI= TAUISIS (Tadd Ree /ALVIFALUGI OL OM) *SURT 
CeO CL eo tERC SDD DIZ CL eMC dD 

JSP= TAUCIIAETK dm He oe JMI SD FALUGI Le Mb) 7 
CLeM(UIFSOKTCOFICL. TIER ddd 

SI= TRAC GIS EIR CGI mL 6 DSMU SD FALUG COFFE Le tTR CdD) 

Ji= TaAvR(ui=TAURLOVD 

Ji= TauGlod-TAUGL Ia) 

Jd= TAUECJI—TAUCALD 

MEAT KEELE ASE KATE/PRESSUBRE 

= GVA CID L Ae DERI IS TAU SIECT KIS dled 


WUPERC T= CUR CKCMLG 


C CUMbUSTIUN 


vU lf 
Y 

Pris) 
VFiu)d 
Kes) 
Pols) 
Vuolv? 
Kbt0) 


ee —_ 


ZUNE MALH NU. FUNCTIUNS 

J= 10 KC 

= Mis) 

UD Od ad fad AN heh flat St) 

~— Cede SRVK VERO HC Le HV IFGI I ISZ DIAL Le HVRH2) 
= Y¥/(1.-Y**2) 

= UL FVHVRRZ D/L eH) 

= bem he SRV KVERZH (Let LeHV IPGL IS2Z oD ISL oH VOR) 
=-V¥/U1L.-Y**2) 
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Oveie 
Ol2:83 
OC ele 
9Ce415d 
uUsdlb 
CCLLt 
OCc.so 
OCZLY 
902<0 
C621 
OCLce 
Ovecs 
O02c4 
Cvec5 
OU<cco 
or227 
Cues 
Oveey 
90236 
O0¢51 
OCZS<e 
06235 
NO 256 
Cles5 
U0236 
UUest 
OF esb 
Or esy 
00246 
OF gal 
VUese 
OCews 
UUs 
O0¢45 
00240 
Gert 
Ole+8 
UuUZey 
Gb256 
Ove5l 
OC2ne 
00253 
NOC294 
budod 
UC2o6 
O0c>57 
OU25b6 
00259 
06200 
OCzel 
OQu2od 
Cleo3 
OUco4 


Pabe ScklAL 
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PRATT & WHLATNEY ALKCRAFT UIVISIUN VEK 12/07/78 PaGe SeKLAL 
CSG.PAN757 10.0 11.33.02 59 0212604 
17 CUNTINUE 00205 
C BURNING PARTICLE UKiFT LtELAYS 00266 
TAuwtacs = TAVECICMA) OG2c7 
bU 18 J=1LPL es KLM) OG2o06 
16 TAUN( d= TAUQtu-LI*TAUE(U-1) 00269 
IF (NAUGUP eNE. LIGL TU 25 00276 
C OKIFT OFLAY FKUM SPRAYbAK TO FLAME HULOEK 00271 
TaAvDC == LSLRUM/C13)7M03) O02 42 
TAUUH = LSHRUM/CH/ Mn 00273 
25 CONT ANUt 00214 
C FUR UNCHOKED NULZLE 00275 
J = «KC 002 /6o 
PREKLT = CIGD tLe dD/Z2 ed FFIGIIISIGIVIK Le dD QUu2Z7T7 
PRN = AMAALCAMANIGPRKNUL pHKECKAT I 912 GOL) 00278 
x = PRN®F((GIsImlLeI/GtU)) 00219 
LPRLPK © (GUID he ISG IIS Se FUKSVAmL ed (GED tLe IFIGISIK1Le DD 0C260 
Y = LetlGlsdrbed Ze FM( 5) OC 00261 
KNUZ = VELPHLPR/ (Le mM PPO cei Le told DeLP IKI) 00282 
ir WNPKNTK.GT.O) GO Tu 51 00263 
weklle (6,.,0CG) 00264 
10CU FURMAT (lH) 09285 
TrONCUMUP 6EWe Cd)wmATeE (op TRNSERK) OC260 
WRITE (o,UUT ) OUZv7 


Ir OCNALGUP ete LiwkiTe (oer ANL ’ O02us8 
Ir (NAUGUP eto LiwkKITe «o,CukKered ) 00284 
LFUNAUGUP ecu. LiwkiTt (Oer ANP 1 002490 
AFUNAUGLP stQe LdwWRITE (69CuKcr ) 00241 
LR UNAUGLP 66T. LdWeiTeE (OeVSUUT ) G0242 
WKITE (Oety ’ 00243 
walTt (oy¥lu ’ OCeL44 
wkITe (6e9bu ’ 00295 
wkiTt (omy ’ OUcY+o 
while (6sTJ ’ 00297 
WRITE tosPky ) 90298 
WRITE (Oe6u ) OOz¥9 
WkKiTe (o,TAUFs ) 00300 
WKITE (6,TAUGS ) oOc3c1 
WKIft (6,tAUt )D V03C2 


WKILTE (opulhu 00303 

ClO eee eeve teres ereee FREWUCNLY-ANUCHENUENT CUNS #949 88 08888 8 Eee Bee 00306 
C bLUNDARY CONULTIUNS AT FAN ULSLRARGE (STA Ld 003¢5 
C CUNTINUITY (SIA Ld 003Co 
31 =6N = akild 003U7 
AUNyletid a= le 00306 
AINelViad 5 = l. 003uUy 
AiNeaPtlis F = Of 00310 

LF CNFSUP ctw. 25 00311 

ABINe Ih tad 1 = lester 00312 

C CUNSTANE tcMPemkaATUKE (STA LD 60313 
N ~ iPiad 00344 
AtNelrtld b= Le 60315 
AiNeiteld y & Bhs 00316 


C OULI/EURE JUNCTIUN (STA 343-4) 00347 


PRAIIT uw whltncY ALKUKAFT LIvVIslUN 
CSG.raANT5? 


J = 3 
K = Je, 
C MUMmtINtUM SIA 3-4? 
N = abkty) 
GU TU (529329335) yNAUGLY 
32 CUNT ANU 
BAIN, “lod v = mle 
AN 7tn) ' = le-urn 
AINegaivlud ’ JeFUPMEGPH/I Le * BRK) 
“t(Neandsd » = UPh*orK/I 1. *& BERK) 
A(Ng i won b= geFURM/ 11. + DER) 
AINeg Lh on = Orrstie * CFR) 
bu IU 34 
33 CUNT INE 
AIiNedh bod b © =e 
AtNel hind | 1.-bLFLS 
AINelVbud = ¢eFUPLS 
wINein bud ’ = OFS 
A(Nei Von = Ge 
AINeg i non ’= Ge 
34 CUNTITNUt 
C MUMCNTUM US1A Sri) 
N = iron 
bu TU 635995956) eNAUGLP 
35 CUNT INUe 
AtNelhon hs “he 
ACNelhind F = Le sueh 
AINgiViud d= CeFUPMFDRK JIL. + BRK) 
A(Ng ik bud . = URH¥orRK/ tLe *& GPRD 
A(Nelvon p= ™“’e*0Pr/41. * BPR? 
AINeikSn = DrFnstle * bRRKe 
bu Ib 3st 
36 CUNT INUc 
A(N, lr 3n k = “Ke 
BINe Lr OKRD | ond 1.-bLPnS 
BAIN ivisd p= Ge 
Ai(NeI natu ’ = Q. 
AINgivon y= €e*UPMS 
AUNg LR or ’ = UrRNS 
37 CUNT Aue 
C CUNTiNUATY tS5ta 3 & Sn = 4) 
N = LRUK) 


‘ 
AINyiKind oD 
AINeiViRnD oF = Lhe 
AUNgA KO) oF = BRR/U Le tr ORK) 
AINe Vtg) ) = BRKs ae tbrRK) 
’ 
) 


AUNg ikon = bef the tohny 

AiNyl vin = Left letoPnd 
C ENcrur (SIA 4 & Sn = 4) 

N = avin) 

Atnhei Vind Db = he 

AINeIrHInD b= he 


A(Nslk (ob 0 


BPR#*CTOSIZS IMI (ie tOPR*CTOS)/ THD 
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OU310 
OC3ay 
00320 
OF3¢1 
O0sc<¢ 
OU325 
OC3<4 
003.5 
0C3c6 
00327 
O03<% 
OCS<¢%9 
OC3su 
Ov3sl 
0C3s< 
OC 355 
O35" 
O05s55 
00556 
CCsst 
0U3>56 
00359 
00346 
9G341 
COS4e2 
0U345 
C0344 
OUS65 
Ovu3s46 
CC347 
OO346 
043469 
0C300 
UG351 
OG3>2¢ 
09354 
Cls54 
UUSsSS 
uG356 
00357 
00356 
Q0359 
96300 
OCs5e1 
OC362 
06303 
UL30% 
09305 
Of366 
OC3e7 
Ovseb 
0C360Y 
00370 


PRATT & WHITNEY ALKCKAFT OIVISIUN VEK 


CSG.PANT57 10.0 
AINeLVC SE DF = SDPRECTISISTHIs (Le ebPREC TI 3)/ THD) 
AINel PSH) = 1./01.*BPR*( T(3)/TH))D 
AUNsI1V3n ) = Le/t1.*BPR*( 103)0/THDD 
C CUNSTANT TEMPERATURE Al TUKBINE DISCHARGE (STA 2h) 
N = Inch 
AUNelPen 2*= Le 
AiNelKen ) = -])e 
& BLUNDAKY CUNDITIUN AT NUZZit (STA 11) 
J = KCP1 
N = ilvivd 
A(NelL¥Os) 2 = -de 
AUNel hts) 2 = 2S*KNUL 
aBINesintud ») = -25 
C GPcN LULP INPUT (REFERENCED TU STA 4) 
N = 1QiN 
AINeIwIN ) = le 
Bund = Be 


36 CUNTINUL 
CLL eeesee eee eeee eee EKREQUENCY-UEPENDENT LQNS 594484555585 555 45555 
C FAN OULT (STA 1-2) 


J =. 

K > Jel 

tr = CEAKI-TALF(U)¥*S) 
to = CEKPI-FALGL GIFS? 
Ec = CEXPI-1ALE(U)*S) 


C UNSTKEAM RUNNING SUNIL WAVE (37a 1 - 2) 
N = IPR) 


AUNslHUKD »)= -le 
AINe IVER) 2 = GC) FMI) tce*OPOI/(1 +20 *0PL) 
wINe LRtD) r= EF 


AWNelvVlod oo EF*G( UI FM tu? 
C UFSIKEAM KUNNING SUNIL WAVE (STA 1 - €) 
N = iviv) 


AiNeibty) »= le 
AINsiVivd) 2 = GhuIFMtyu) 
AtNelP(K) 2 = EG 


AUNeavVind 2 ~EGFIGIII FM II—-2.*0PU) /61.*2.*U0P0) 
C DNSTKEAM KUNNANG ENTKUPY WAVE (STA 1 - 2) 
N = Ik(K) 


A(NelhH(K) ) = -be 
AUNslmw(nd 29 = Ghyd 
AUNe IVER) DF = (bud be dc oP OPUS (16406400) 
AINei Pts) bs 6GE 
AUNel ROS) » = -tce* Gi) 
3) 


C FAN LUCE tSla 2 


J = 2 
K vel 
tF LEAP L-TAUFIIDFS) 


EG CEAR(-TAUG(U)*S) 
Ee LEAPI-TAVE WU) *S) 
C DNSIKEAM KUNNING SUNIL WAVE (STA « = 3) 
N = IVtK) 
AINe IPR) } 8 he 
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00371 
Oc372 
00373 
00374 
0C375 
00370 
CC377 
Gu378 
00379 
00360 
O03b: 
OC3&2 
00383 
0C3e84 
00385 
00366 
OC387 
ON3o6b6 
OC3by 
0C3%C 
0ce391 
0C3%2 
G0393 
00394 
OF395 
90340 
00397 
00398 
UO399 
00400 
004C1 
004%? 
0C4U3 
UL404 
0C4U5 
OC40O 
OC4u7 
OC4Fe 
00409 
00410 
OC4il 
Ousi2 
0C413 
00414 
00415 
00416 
0u417 
00418 
00419 
004<0 
UCHcl 
0042<¢ 
C0423 
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61 021209 
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a 


PRATI & wrlINey 
CSGerANT57 


AUNeLVOND 
Atnelrtv? 
AiNeivivl 


AikCKarFT Vivislun VeRK 
16.9 
P= “COVERED tC e*DPSID/ (Lo tde UPS) 
es tr 
y= ErRFGLUIFMLG? 


C UPSTREAM KUNNING SUNIL WAVE (STA ¢ ~ 3) 


N = 
AUN Phd 
AINyivivd 
AUNeirP (RK) 
AMNylv¥ in? 


iviv) 
be AR 
Jb = CtSIeMCud 
+= &6 
P= FELFIGIIIFM LI — 2. FUP SDs 41. 42. FURS) 


C DNSEREAM RUNNING CNTKUPY wAVE (31a < — 3) 


N = 
AUNel rin) 
AUNeLRON? 
AINei Vin) 
AINelr ty) 
AtNeikts? 

C Cunt cNGINE T 
N = 
AINeL Ven 
AUNe inden 
AUNeltet ld 
1F (NF SUP 

AAtNelPtl? 


AK OK) 

} = =F. 

p= Gite) 

P= (Old hed Fee FUSS CL et ce *OrSS 


v= [Ee 
t+ = sEG* Sts? 
KANSFER FUNCTLUN (LTA inet) 
lVéer 
) = “he 
, 
d= ve 
etwe 2) 
P= bof hae tTTUne*s) 


" 
1 
~ 

. 


C TURING -Ul SUhARGE (STA cHoSrid 


tr = CEAP(-TAUFNFS) 
to = CEAPL-TAUGNFS) 
tte = CEAP(-TAUEN*)S) 
& DNSEIRCAM KUNNING SUNIL wave (STA ch — Sn) 
N = 1iV4nh 
Ai(Ne iP sn » = ~be 
AINel von ) = “GH Mr 
AINg leer '= &F 
AINe LV en = ER®OR *Mn 
C UFSTREAM KUNNING SUNIL WAVE USTA cH = Sn) 
N = iPen 
AUNelren i = “Ke 
AtNey lV er p= Gert emr 
AUNe iron » = &G 
AINy1LVSn , = -tG*6n Mn 
C ONSIREAM RUNNIN CNTRUFY wave (STA ech = 3nd 
N = Ik3n 
AINe Pon & 2 =bs 
AUNginsn , = oF 
AiNeiP en 2 £8 
ACNelR en § = -€e*on 
C IGNIFTiUN KEANE TU CUomMeUusSTAlUN CUNc (STA 4-5) — INCLUDE LENbTRN 
C FRKUM STA 2-4 
J -_ + 
K = vl 
tr HS CEAMUMCTAUP LSID TLE SIZES ILL es MDDS) 
tb = COAPEKECTAUL LUI FL ESIAL LDA E Le “MEDD DFS) 
tc = CEAPLWCTAUC LUI FLU SIZEL ISM DDFS) 


C DNSTREAM KUNNING SUNIL wave (STA & = 5) 
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00425 
OC4ee 
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UU455 
O44 
VUss5 
06456 
O0457 
00456 
UlGE SS 
OC 440 
Clee) 
Ouse 
Q0445 
Cl hae 
Cl 445 
O04646 
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OL ese 
UlHeay 
Gu470 
OC4>1 
Cl4he 
04ers 
004 D4 
UL455 
CC426 
COs“t7 
Cveso 
OC 434 
00460 
CL4ol 
OC46e 
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00464 
OC4O5 
9456 
OC4o7 
Of 466 
Oley 
06470 
veen 
COmte 
Oca ss 
OC4 14 
GC415 
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CSGerKANID7 


N = 
AINy lr OinD 
AiNeaVin) 
AINeaPiud 
AINelvtul 
C URSIKEAM KUNN 
N = 
AINs Pid 
AiNelviud 
AUNeaPind 
AINelvind 
© ONSTREAM RUNN 
N = 
A(Noir(n) 
AUNe IKK) 
AINeTr (ud 
AUNyiktud 
C CUMbUSTIUN cu 
bU 46 vel 
K 
tr 
tre 
€G 
tel 
Ee 
tel 
tee 
tw 


wrr in 


rene 


ALKULRAFT UAVISILUN VEK 
10.0 


1P(R) 
>= -le 
» = -GIvdFML) 
a 
» = EF*G(UdeMtU? 
LN SUNIL WAve (STA & - 4) 
IAs) 
) 
’ 


-l. 
GIJdFM io) 
) &G 
’ mEGFLIUIFMI SD 
ANG ENEIKUPY WAVE (STA & - 5) 
In tw) 
) 


rene 


“il. 
) Glu) 
hs && 

p= -EE* Gt) 
NE (STA 5-10) 
CeKCM1L 
Jel 
LEXPI-TALr (ud*S) 
LEAPI“TALF ct ud) 
LCEXFIKTAUG (yu) *S) 
LEAP I—lAUGII I ¥S) 
CEXPi-TAvE (u)*S) 
CEXP(-TavEeltud*s) 
CeExPl—TAUEC(U)FS) 
LEAKE-TAUL (ud *S) 


C DUWNSIKrAM RUNNING SONIUL WAVE STA 5-096—7) 7-8 gp 6-42 9-10) 


drt AsMaAGE 

Fu 

rR 

Fy 

bu TO 5 
50 Lae 

Las 

Fwy - 
51 CUNTANUL 

N = 

AINg IP to) 

AUNeaViud 

AINeI RG) 

AINe i Pind 

AUNe lv dns 

AiNole tn) 

AINe ll 


ther ue 


S) ete Yer OU TL 59 

(er -EFCI/S 

(le ~kred/s 

Mis d(C ER mee Ltr ed7S + MIRDPCERSFEEL-EEDSS 


-TAurliv) 
Taurdétu) 
ME SPFLTAUCLIJI-FALE itu e * MOK) FETAUEZ Cui -TAUF2I5)) 


1PinD 
) tb ly dae DRRUR (DERE (Ud) FFM Er 
IGS Dm de PAU (SIEVE) Frum Feb lureM() 
“(Gt dm Le MULE (UV IFRE IU) FU 
(Gis im ae PFEUP (UD FPFIK) FRR ode 
AGUS dm Le PROUD FEVEERD FER POL UD FMIKD 
(Ghudm Le DFUUR (UF FKRE OK) FER 
“(bts mie DFU IU) *FUFEW 


—~s = ee 
ewnee 


C UPSTKCAM KUNNING SUNIL WAVE (STA 5096-1, T-by 6-4 99-10) 


IF(AlLMALL 
tJ - 
FR = 
ry ~ 
bu Tu 5s 
52 Fu = 


Sd etue Gor GU Tu be 

(1. -EGLI/SS 

(bo -eblI7s 

Mig deb le “eGLFtElLIZS + MIRDPCEGLFEEL“EGFEE DZS 
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OU4ST7 
OC478 
004719 
06400 
OC4o51 
OG4s52 
OC4b5 
CL404 
00465 
Ov400 
00407 
C0468 
CC409 
0U490 
OC4es1 
O04¥e 
00493 
O04 94 
00495 
CC4¥0 
v04y7 
00445 
0499 
005c0 
6959} 
OC5u< 
ucsus 
00504 
Otsu 
OC5V00 
O05 97 
G05 
OC5uy 
00510 
005i1 
CC5i2 
OC5:13 
Nelo. 
OG515 
UL5160 
Cuol?é 
OUSis 
OOsay 
VUud5<0 
90521 
O°S<e 
Ouse3 
00524 
005<5 
00526 
99527 
00528 
0u529 
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PRATT & WhlINcY ALKUKAFT LUlvISIUN VER 12/07/16 Pave SeKLAL 
CSG.PANTST 10.0 11.33.02 o4 Oclcoy 
FA = -~TAUGZ Iu) 60530 
Fu = MEUI*CFAULLISI+IAUVEL (UI) + MUKD F(T AUG. Lode TAUEZ (IUD) Cudol 
53 CUNTINUc 0U553¢ 
N = iveul 0C532 
AINgiP ts) 2 = (Gha dR be DEWOR(UIFPOLU) Ar uel. 90554 
AINgLVASd 2 = Ghd de PFULURCUIFVGL SU) FRURKGI DEMO) C0555 
BING IR (I) 2 = (GOV dm Le PFOUPLIIFRGIS) FRG YbLdSs0 
AINehPUKRD DP = “AGH IH Le DP FULPL UD FPOIK) FFR“EG Of537 
BING AVORD DF TIGII Im Le PRULP ISD FVGI A) FFREE GFE (I) FMR) C558 
AUNeL KER) Fb = MEG CGD Le PFULP LUD FRG) FER ULdSS9 
KEN gL elN b= tb td Le I FOURL UD? #FUFLY 0C540 
C OUwNSfRKReEAM KUNNING ENTRUPY WAVE (STA 5—by 0-7, 1-89b6-4,9-10) GoO541 
LF (AIMALLS) ete Ger GL TL 54 Onb54e 
Fu = (Ee ste 2)/S 00543 
rR - tle ~EEZIZS OC5 a4 
Fy = Tavety deere OC 545 
Gu TU 55 O0l546 
54 rJ = -Jaurlivd Oude? 
FR = TAuk2tus OCEss 
Fu - TAvLe ty) COS4y 
55 CUNT TINUE C0550 
N = IK(K) Ous5l 
BINg ih bod b= HOC SIKLe FUUR De Fonte OU5>D2 
AING 1 VEG) PD = HbGb SdH Le FUL K LU) FFG 60553 
AINyln (sd) ) = cE*G(U) COS54 
BING PERE F = (ONG Le DFRLE LU IDFER he 00555 
AUNe L VERY 2 = (GUIDA Le PROLR CUD FER 090556 
AiNg le inp Dd = “bls? 06557 
AtNei GIN b= HIGR IH be PRUUK LGD RE UREQ 00556 
46 CUNTA NUE CCbd.Y 
C CUMBUSTIUN ¢<UNt TU NUZZLE (STA 10-24) 00500 
J = KL Gu50l 
K = uti GOd5o0e2 
tr = CEARPI-FTAUR LU )*S) 06503 
EG = CEAPI-TAUGIU)*S) NG504 
tec = LEXPI-TALEIUD*S) OuSo5 
C ONSTKEAM KUNNING SONIC WAVE (STH lL = Ald OC506 
N = ITriny GU5o7 
AINg iF OK) be HKx DvL5o0b 
AI(Ny AV OK) p= “Gt Sd*MI 5) OU504% 
AUNelhtud 2 = EF 60570 
A(Ngiviu) 2 = EReG( UD FMLD ecs71 
& UPSIKEAM RUNNING SUNIL wAVE (STA 10 -al) OU572 
N = lviuvd 00543 
A(NeiPlsd » Sie OU574 
ACNe dvb) b= GISDEMEGD 00575 
A(NeIPiKi oF = EG OC576 
AINe lL VIR) 6 = =EGFO( I) FMC?) C0577 
C ONSTRKEAM KUNNING ENTKUPY WAVE (STA 10 = 14) 00578 
N = IkKIK) OC579 
AINe PIR) PS Sie 00560 
A(NesIRIRD 2 = Ghd CO5o64 
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AiNel Plu) ) 


EE OFSK82 


PRATT & whi TNeY ALRE 
CSG.PAN7T5S7 


AINeinty) d= 
C FAN SIFKEAM MASS FL 
N = lw 
AI(Nsiws d = 
AiNelV(3) ) = 
AUNeIK(3) 2 = 
C CUKE STKEAM MASS F 
N = Iw3n 
AINeg lan d= 
AI(Ng lV Sn \ = 
AINegiksn ) = 
C UPEN LUUP vUTPLUF 46 
GU TU 1603964 9e 
63 CUNTINUE 


CL ZEEE REND REE RAE RERR EMER VEE OUILI CK ¥FE SORE EERE EEE EE SERRE SESE 


N = 1eCuT 
© 0c = CEAP( 
AUNyLQUUT } 
AiNg ins 
AINelVs)d 
AINeir ts) 
AUNelk ts) 
EUn = 
AIN es LWon 
AINeiV3n 
AUN, lk 3n 
AINy leon 
AINe lei) 
Gu TU bo 
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bu TO 66 
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~EE*G(4) 
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¢ VATA SET BeouUSLURCE AT LEVEL OUL AS UF 04/05/75 00001 
Cc LATA Stl BeBULMbAUL AT LeveL OCT AS OF O35/17/TS 060vu2 
LUMMUN /FLUGS TaTLts STatcts NAMEls NAMEds KI 99043 
LUMMUN /FROUT/ FETAL, FETArM, rrACy PFAHy Flos FLisy FLAy FLSCe 00004 
* USM sy FTOLe Flot, Flebu, Fedthrhe FZEPL, FLEPN, FlcTes FLETHye 0G0U5 
e rdeVey LEVEN 0006 
LUMMUN /AUGIN/ JrUELs NAUGURs NUUMUR, NFSUP, NPRNIng NPKNTF ocoG7 
CUMMUN 7 RLAMINZ ALPMAL (ALO), ALPrAN( 100)5 FALI(100), FAML(100), 00008 
* FHWOELOGds Fromm dadOd)s CSELELOGd, Comat lO%), NSU 100), NSH(100), OLGLY 
* PFSRELCC)» TAULCLOO)s TAUni( 100), TEATA( LOO), TFSRLI (100), 006010 
* TOLL CACO), TOMLELOUDs WEXT(LOO)s XLC(100)»9 Xim( 100), NILy NIn ocoil 
CUMMUN /RMOLINS oFKe UPLS, UPU, Urry UPS» UPSs ERPSLs EPSHe EFA, OCOi2 
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* PRNUCePSOe Sarde LePe ZePuls ZteridelcrPe cebhy LZEPLAg de PHi pLETCiy 00014 
@ LETH a LEVEL pe LEVI gs ECURE pwOUUL oc015 
LUMMUNSSV/SAVTE (2) 9 SAVTAG2)5 SAVOTI2)9 SAVFAR( EDs SAVOTIIZ)» 00Cl6e 
K SAVE TAC YS)» SAVMUAL CI» SAVMOFIZ)s LEVIZ)s ZERISNd, LELTI2)s 0v0L7 
A LULA ede SAVVAUL Ie TEXAVG pC TAAVL, AMUTAUL yg FAKAVGy IF AAVGyAMUTFO, 00018 
AK TEALE (LOO) » SEMDIALLOC), SEMUTF( 100), STTACLOCO)sSTVA(LOO), o0c0i1y 
A FARWR OL0C) pe TASC LOUD UTP AOL (L9G) pATRELOO) ,ETAAVPSSAVLI Gc) 00020 
A SAVULR (2 Dy SAVALSH EC) pSLACLOODySLK( 190), SLSC1LOO dy SVFAL(AGO Ds, 00021 
x FALAVGs TEAAVS ep LWTT(1LCO)d,SLB( L090) pSAVALBIZ) Lie) 00022 
KEAL LAy Lby Lis LHe Lig LRe Lev MOC e MOre MORe LSUe LSre 000<¢3 
* NAMEL, NAME cold del Riel SEa gl Srigleigl ra OCOc4 
NAMcCLIST ZINFUT/S ALFRAL, ALPHA, BPR» URLS, UPL, Ory Ov025 
* UrmS, UPS» ErSls EPSriy ETAy ETALs ET Ary FAy FAL FAY 000<6 
* FAV, Fowl, Primes JFUcLs LAs bby Eber Loe Lie iKe 00027 
* Sly ULSts Loe MOC Mor, M6Ke NAULUP, NLUMOP», NESUP» 000<c8 
* NPRNIT Fs NRKNTK es NSUe NStHe NTC NTMy PESRe PKNULe PSO, OCC Ly 
* (AUC y TaumyTEURE® TEAT, TFSKe taney 1OCs 00050 
* Tory WOUUL», WEATs Cthy Lek, LeFr,y Lerhy Leh, LEPC, LePry 0cosi 
* LETC, ctTry LEVCy LEWH,y ALL» ALM, STUP 00032 
UAMENSAON Tabled eOds STATLEML9)» GAVatcOO2), GIVEIS49)» 00643 
* NAME Lela sty NAMEZIZC oS) eo TEXEC LOO), TESRE1COd, TOCE1O0)s TOMN(100 19900 54 
* FACE LULU De FAMELCOPeLSLCULOOD gL SH(1CO), Tauriti0o) 000.5 
NAMELISE /LCUMBIN/ ALFHALs ALPHA, GPK, OPO, UPN, O0G056 
* UPS» ERSUy ERSrty rALy FAN, OCOs7 
* FAV, Fr, FHWe, JFULL » LAy tLe Ly 00058 
* LSee LOMe Lee MOUe Morne MEKe NAUGLYPs NLUMLUP, NESUP,» Q00s9 
* NPKNEF, NPKNTKs NSCs NSHy NICy Nitty PESKRe PRKNOLs PSby 00040 
* TAULs TAU, TLUKce TEXty TeSme Tatty TOL, 00041 
* [Ory WELLL» WEATs ALUe Xin OCO4e 
NAMELAST/VERGUT/B FR eDEU OPM UPS pt TAL y CT AN, O0cC43 
A PAL SP Arty PAV eg IPUEL pLAgLt pL gle lLd pike i Sbel Sry GOG44 
A Uda MOULy MOM MOR pNAUGUP pNCUMUP gNFSUPSNPRNTH ¢ Ov04s 
A PRNUc FSO oTCUREy TOC Tomy ZeFlyZirreZbPuy C0046 
x LePre LE tly ct Tey ZEve eZee Vn CU0s7 
NAMELILST/VUKB6LX/6 RR DRO yDPHeLPSet TAsF Ae UUC4s 
x FAV esPUCL  pLAg LO yp LU gl pLiglKy OfC4y 
' KA werMOL Morty MOK sNAUGUF » NUUMUP NF SUP pNFRNTR 0Cc050 
KR PRNUL pTLURDy PSOgTOL ys leony dtr ydtrPy der vods: 
NAMELASI/SWIRL /BPRK ep URLS y UPL, UPHSy DPS gE Ag bay C0ds2 
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& 


wrhlINcy ALB 


CSGerANID7 


ee eeane 


Lc aMaL»MoryM 
PRNUL pr SOetTL 
NAMELAST SFL 
EPSUy ER SM, 
rAVs Frmwls F 
eSls LSmy, MO 
NeRNIPy Nsec 
1AUL, TAUry, 
Torn, wluUl, 
ewUIVALENCLE 
vuuS ] = As 


olVitdld = Ue 
Ir tiebT.59) 
Givetir = Ge 
CUNTANUe 
bu 6 £ = As 
JEATII) = we 
TFESKGLD = Ge 
folti)d) = Ge 
foritiap = Ve 
LCUNTINGt 
STUP = OG. 
vrFUeEL = 1 
NAULUP = 1 
NLUMUF = 2 
NFSUP = 1 
NPeNie = & 
NPRNTRF = ] 
TLUKe = U5 
wlUule = 6C 
SeR = 2d>Y 
uPLS = Ge. 
hi) & «Co 
uPA «G3e 
Pres = Cs 
Ps O. 
PSL = ous 
bPSm = «4% 
1A = Oo. 
tTaAcC & «64 
Tart = «¥) 
A= Ce 
¥ lel 
4 = Jae 
4 . O06 
n lée 
4 2 l4. 
ui * . 
ur OVe 
Le * 40s 
Mov = ei 
Mort = «dt 


CRAFT CiVisiUN VEK 
16.0 


FAVeJFULLpLaal Bell yithgtlelihys 
OK sNAUGUP yNCUMUPF gp NFSUPsNPKNE Rg 
UkceloCy lone LtregdckhyctP 
mME/ ALR MAL, ALPHAN, BRR, 

FAL, FAH, 
mw, JrUtls 
Cy MOM, NUCUMUF, 
» NSmy NICg Wiry PrSky PSO, 
TcXT» t&SKy Forty 10Cye 
WEAT» ALL» Aun 
(GAVilads ALPRALIL ID, (GAVel lds oPKD 
20Ce 


GU fu 5 
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00053 
G0004 
G0055 
OCO50 
0v057 
OCC5& 
OU05Y 
00060 
OCGol 
09002 
CCC63 
OU004 
00005 
OC 0c6 
0007 
00068 
OCG6Y 
00070 
00071 
OCcO72 
00073 
00074 
OGO7T> 
00076 
Ovo77 
0007s 
00079 
90060 
OCOsl 
OU082 
000603 
00084 
00005 
ones 
00067 
Oudss 
CoCby 
90040 
0o90y1 
Voov2 
9fCY¥3 
OCO%4 
00045 
OC Ov6 
OU0s7 
00046 
000%9 
06100 
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Oolue 
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0014 
Oc1o05 
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Mok = .22 

PRNGZ = 404 

Zee = Ce 

Z2etC = —5.5 
ZtFn = «4 

ZerP = 0. 

Zee = be 

Ztre = Ue 

ZEPH = OL 

atlc = Oe 

ZEIH = GO. 

zEvl = C. 

ZEVH ='C. 

NTe = 2 

NTh = 1 

PSo = 7.92 

f3n = 4355. 
ALPHAC(1L) = 60.4 
FAL(L) = .U599U 
rrwl(l) = 1.206 
LSLOLI = 4.0 
NSC(i) = 1 
PESKOL) = 134.7 
TrSk(1) = DOU. 
TAUC(1) = 2256 
TEATO1) = Ue 
WEAT(1) = Ce 
lectl) = 700. 
ALLI1) = 66-6 
ALPRen(1]) = 6G. 
FAn(1l) = .04u 
FrHortiods = 275 
cSHti)d = bef 
NSHhti)d = 1 
TAUH( 1) = 2166 
fonda) = 1775. 
ALH(1) = toe 

40 READ (5e2U) Kl, STITcec 
441) = € 
Lite) = @ 

ZC FUKMAT (115 i9A4) 
KEAU (5,IlNbUT) 
OU 35 M = ly» 1CC 
TEATLOM) = TEATOM) 
fori (mM) = T6LtM) 
bork im) = Torn (m) 
TAUni(M) = TaAuriM) 
TFSRA(M) =TESKIM) 
LSCLIM) = LSCIM) 
CSHL(Ms = CSHIM) 
FacLiM) = FaAL(M) 
FALIIM) = FAL(™) 

35 FAHLI(M) = FAHI(M) 
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Olle 
OO1C? 
oc1lces 
CCley 
06110 
0¢111 
Obil2 
oc1i3s 
OC114 
90115 
®Fllo 
O©117 
CC1is 
oclly 
99126 
Ollel 
OCl<e2 
GG12¢3 
Cl1<4 
OU1.5 
CC1<c6 
COle7 
OCi.8 
O0lcY 
C6130 
FOVZ1 
Ubl3e 
OC 15s 
OG134 
00135 
OC1s06 
0C137 
60138 
OClsy 
OC14sC 
O0l4sl 
90142 
00143 
OL1L44 
NC 145 
00146 
OCiss 
60148 
00149 
00150 
OO151 
Culds2 
00153 
00154 
00155 
O0C1L56 
00157 
0015s 
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10le< 


10UC 


1cc 


U3ri = Ton 
£6FCl = 2erc 
dtrei = Leen 
ZEvCa = ZERC 
éztPrni = 2EPM 
ZETCl & £ETC 
ZETmi = 2bIn 
Zevea = “Levee 
Zev = LtVh 
Bet S&S 

Las = LK 

eG = eC 

uma > inh 
elTAca = tc bée 
tTamni = clan 


dh CSTR .GT eevee GL TU Atl 

CALL CHECK 

WkiTe (6, 1LOle)d 

FURMAT Cleage LeWaMeL IST aNeul vALuUcS?) 


Lr (NC UMUP CEU ed eANL eNAUGUPe ER eld) WKIiTE (6, CUMBIND 
Tr ONCUMUF ctu ele ANL eNAULGUM ete Ld WKiTE LoyvecGul? 
LEC NCUMLP Ew eh ANU eNAUGLP eC EWe cd WKATE (Oy VUKBIX) 
Tr ONCUMUP cEW el eANUeNAUGUP Ee 5) WKITE Cop SWake 


TP (NCUMLP eEWeod) wWeITt (osFLAMe ) 
WKITE (651000) 


FURMAVES/ 72 >0Ad* TiS PRUGKAM CnctRKS Srecl Fic 
UNAGLE LNB UT VATA et ec5Ag tit Frese Cntcas 
eyUb WILL BE TCKMINA TO Ue 8/7/92 5X yg VIULATIUNS, 
*ED ckeUWn-%s///) 


CALL ERKUKO],SIUr) 
CALL ERRUK( 2s STUPD 


UU 3L M = ly 100 

PEATAIM) = HMAAL § Gop TerAtims — 400.2) 
Tr (NULUMUP 6 tied eo UR eNUUMUPM ote 5) 

fora tM) = AMAXL ¢( Ges 1OLUM) = 4606) 
dh (NCUMUP 6 EW ec eK eNCUMUP e663) 
formlLims = AMAA] (Coy Tornim) -— 4006) 
fRSRL (MD = AMAAL ( Oey Tr SRIM) = 460.2) 
LSCLEM) = LSLEM) 

eSmliM) = LSMIM) 

FACAIMD = FALIM) 

FanLiM) = FARMCM) 

Tani = Tam = 40C. 


tr (NLCUMUMSGE odd CALL rAtLUMb 
dr (NCUMUPe Eee) LALE CRKRUK( 5, 5TUP) 
dr (NCUMUR SLT 65) CALL KUMELE 


GU tu 16 

CALL KLUT (Cones ¥¥¥) 
>TUP 

tNU 
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’ 
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OCisy 
OC 1Loo 
Goole 
Olice 
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uClos 
OCles 
OCicoe 
Cle 
9L1lot& 
OU1L6S 
Cull 
Ovuirl 
OWl2 
ACi.ts 
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60175 
G01 lo 
Oc. 
COltls 
Cvlly 
OOlsEe 
COlelL 
36182 
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INFUTS TU cNsuKt Kt ASOULESG 
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wilt be FRiNTOULGO 
Crlos 
OCleo 
Colts 
GULSU 
OO191L 
OllYe 
OCLs 
NClyve 
OCL95S 
VeLlYo 
CCivt 
GIL%6 
UGlYy 
9Cz200 
OG2F 1 
OC2Ce 
UudUs 
UUs 
Ougt5 
GOeve 
CC2cr 
CCéte 
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PRATT & whi INcy ALRURKAFT DIVISLUN vVeR 42/01/18 PAGe ScRiAc 
CSG.rANTS? 10.6 41.33.02 a O<ldoy 
c vata SET BesLDPHLUTG AT LeWet COOL AS UF 12/67/15 £33 
Cc VATA SET BEBOP LUIG AT LEVEL U2l AS UF 02/13/78 oc0d) 
SUBRUUTINE PLUTO (AL Y] p¥e eNPTS ep FREQUP,) FKWFAC pPRASUPSAMPUP pAMPFAL ys COOL 
1 IGyYMtNeYMACKS,», INUKM > 00003 
KeEAL NAMEL, NAMEZ, Niy N2 0G0U4 
CUMMUN/SPLUGS FIIiLeeSTatbeoe NAMcis NaMcZ OOULS 
OLMENSLUN NAMEL (ZU 95) 9 NAMEC(cbe3) 900% 
OLMENSAUN NL I35)9 N23) occoy 
OIMLENSIUN AGldsY¥l¢adeV20)) GGOUs 
DAMENSION FTLth ids Prt (4is AMPT (4), AFVAL (4), YAMP(4), Cucuy 
i XaNetioos 09010 
LIMENSAUM TITLE N20)», sTaTLetly) 90011 
OIMENSAUN 46UF( 1000) one] ob W4 
O{MLNSIUN TESTI4) ¥0013 
UImMENSiUN YAMPZiS),) AMPIZ146@) CCC14 
OUIMeENSLUN YAPT(4) 0fGi5 
CAMENSIUN YAPL(4)» UUTI3) OCClo 
DATA FTLEL/ SFREW Se SUCNES ep fY¥—mE* eS PRTZ 87 Ou0i7 
UATRH PHT Ss *PRAS*s PELE ys *G *,° 7 OCOis 
LATA AMFT /*LUG *y*GAIN's * ts * os Ovuoly 
DATA YAMP /-1.0 Ue erheGyceO/ 000.0 
DAT & YAMRZ/% ep leplerae/ O0Gc1 
DATA AMPT<c/4n PSG AIN, 4r esal Y Oude \ 
CATH REVAL elole ster lLOUess AFAKST / US OCCes 
OATA FUMAT / * © 4 vul2s 
c 29937 CUNVERSION CENTAMttcK Tu iNCncS OvGzd 
LUNV = 63937 0U0<6 
TwUCuU = 1.5% CUNV CCOL7 
Ir (iraikSteoTeG) CL Te 5 COOc8 
CALL HPLUTS (1 bUF lCuL) CCC ey 
GALE PLUT € cbs of Sys 3 ) 00050 
> [Fanst = 2 OCOs4 
XLTImn = ide * LUNV 000 Se 
CYLLEAZIL5 e* LUNVI 7 se 00055 
CYLLYVi=(be* LCLNV) 7 Se 90054 
LYLLVc= ( lee & CUNV J 7 deol OCCs55 
YYMIN = —3b6U6 CCCoo 
DeLYP = GO. CCC37 
v=7%U OvC 38 
LLUVAL = fy OUC3Y 
Ou 10 1 f= és 16 COCHC 
“i868 3 OCGs)1 
VAL = wmceUGic (Zl) * CYLLEA Gus. 
ee o. O38 OC043 
XINGC(u) = VAL = ULOVAL 0064 
ULDVAL = VAL 00045 
1C CUNTINUE ICO+6 ' 
FAS = Ce 60047 q 
FyYS = wu. CCC 48 | 
Yu = ©. * CUNV OuUG4s 
Ye = ¥O + < * CUNY GoOorC 
YeTm = Ye * lew * CUNY occ51 
AF CFROWOr etwe OF GO Tu 29 0COd2 
| 
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C FPlLUT GRKIL LINES UN X AALS thRKeebrel) 
vu lb 1t = lel 
CALL PLUTUFASsFYSs3) 
CALL PLUTUFASSYUge) 
LALL FLUTUFAS® YE o>) 
CALL PLUTIFASSYLIN ge) 
FAS = FAS + TwuULU 
ho CUNT INGE 
GU IU Ze 
ly CUNTINUt 
C Peut LUG KAU LINES UN & AALS 
Cu <0 N= ly 5 
JN = AC 
vuU if NN = ly & 
CALL KLUTUFAS Fr YS, 3) 
CALL PLUTVFASSYU9e) 
CALL PLLVUFXSs ¥t93) 
CALL FPLUTIFASs YLIMgc) 
Ir (NN 2tUe. 9) GUO TU Id 
FAS = XINCOINN)D # FX 
45 CUNTINUE 
FAS = N * CYCLEA 
zt CUNF INU 
CALL KLUTI FAS 9FYS 95) 
CALL KPLUTEFASs YDec) 
CALL PLUTUFAS Yr 3) 
CALL FPLUIC FASS YUTH yc) 
<2 CUNTINUE 
C PLUT YL AXLSy GRIDS, LABELS 
YNCA= Ze * LUNV 
KK = ALT 
CING = oeG 
dF (PMASUP othe Le F YPMAN = —1BU6 
YVAL = YRMIN 
bU 355 N = lyd 
CALL KLUTICeGy LINLs 3 > 
CALL HLUTIAAy CIiNls « ) 


CALL NUMBER (me Spl INU—e Uo ee Ul e YVAL gb e0_U) 


CiNu = CINLG * YNLA 
YVAL = YVAL * Sve 
32 CUNT aiwbe 


CALL SYMELL Imes ple peltePHtyoGep lod 


YLIMIN = -26Ue 
YiMAA = Oe 
TF (PraAsur stu. Cod GU IU 506 
Yimin = =lLoBve 
YIMHX = love 

SU UcLYL = AESUYAMAN = YAMAX)D 
AYY = ltleu * LLY 


C bLUT GkiL LANES UN Ye AALS 
OU <B l=l ys 
CALL PLUTIOee AYYy2) 
CALL FLUTIALTMy AYYs cD 
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OUGSs 
Yv055 
000356 
v0057 
Cucoe 
ccety 
00Cob 
CGOol 
OC0C¢d 
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OCCoO4 
Gv00> 
oC 0es 
OocueT 
OvCods 
OCO0oY 
00670 
ooc7l 
G00 (Zz 
00073 
00014 
F075 
200 Te 
Ov077 
ocore 
00079 
00060 
COCbi 
ooCEZ 
OCO83 
v00es 
ocoés 
OLO0o6 
00087 
OUCob 
OUGsY 
CC O+x0 
Cady: 
Ocove2 
OL043 
00044 
0C0s5 
00040 
OUGs7 
CCOvt 
evoyy 
0100 
C015) 
OG1ve 
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Ovilve 
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20 AYY = AYY # CYLLYE 
C PLUT LéAbcbks UN FREWUENLY AALDd » 

Ir (rRKUFAC ety. Ood FROFAL = 
ir (PRKEWUP wtwe Of) GU TU cy 
XMIN = O. 
AMAX = 10Ge * FRUFAL 
ir (YMaACKS ete Cd GO Tu cbt 
AMAX = YMALKS 
xmMIN = YMEN 

286 CUNT INUE 
OrLX = AMAK — XMIN 


Xm = O26 
KAINC = ABSILELA 4 ibe Dd 
FR = -.<0 


pu 2% 1 = ds 4&1 
CALL NUMBER (FX gmed nel Ly AMg le 
»M = KAM * XAINC 
FR = FA + TwucuU 
27 CUNTINUE 
Gu tu 31 
29 AUO = 22 
XA = ALUGIC(FRKWFAL)D 


Ir (XA ebLT. ©) ADD = =e 

NFALC = XA * ADL 

Ar = -e2G 

XFAL = 1U5 ** NFAL 

KMAK = 1CC. * KFAL 

XMIN = el * XrAc 

UclLA = ALUGLOIXMAX) —ALUGILG 

bu 30 2 = ly & 

AYLU = AFVAL(L) * XFAL 

CALL NUMBER LAP emed nel FyAVLUSO 
3¢ XF = XP © UYGLER 


31 CUNTINUc 


xX AXIS 
le 


yi) 


AMIN) 


Gye) 


CALL SYMBULE colby ~ehcer ode ot Tite yp Goby lod 


ir (AMPFAL eEwe Oe) AMPFAL = Ie 
c AMPUR = be SETUP UF AALS LALELS 
le (AMPUR cE. Ue ) GU TU 326 
OU 315 bh = lee 
YaArLtid = YAMPetid * AMPE AL 
345 YART(L) = AMPTcils 
Y2MIN = Of 
Yo2Muax = 360 * AMPFAL 
Url Ye = ADSIYcMIN = YEMAA) 
ATERM = Ce 
bu Ib 32e 
Cc AMFUP = Ge SET UP AXIS LAbELS 
326 AUU = 25 
A = ALUGILLAMPFALS 
IF ta elTe % ) AOD & =ed 
ATEKM = LFLALAtADD) 
Y2MIN = ~lel * ATERM 
Y2MAX = Z2eC + ATEKM 
—_— wee — 
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0C106 
OvlG7 
00165 
0L109 
06110 
Ocill 
OO1lle 
06113 
CC114 
v01ls5 
OC1lLO 
QC117 
0c1l18 
Oullgs 
0C1<0 
Ooclel 
O0led 
O661<¢3 
O61<e4 
COl<ed 
00126 
00127 
60128 
OCl<ey 
97130 
OClsl 
Ob152 
C9133 
0C134 
0v135 
OOlLs0 
Gblsl 
00138 
UULS9 
CUL4sO 
Oclsl 
ublecz 
OO 14s 
C0144 
OG145 
0C146 
CUL4ST 
Col4s 
OG14sy 
9C150 
OGlsi 
OC1>52 
0153 
OVU1LD>4 
OC1l>5 
60156 
00157 
00156 


PAGE 
73 


SERIAL 
Ocicby 


PRAT) 


& WoLtNcY ALKLKAFT UIVISIUN Vern 


CSGerANT5? 1c. 


32k 


33¢ 


34C 


34 


FAY 


yo 


16U 


VELYe = ABSUYEMIN — YeMaAx) 

UU 321i, = is% 

YaPuL(id = YAMP(CL) * ATERM 

YAPT¢ad = AMPT(2) 

CUNT INUc 

FY = 1Ge * CONV = «tS 

OU 32 1 = dee 

CALL NUMBERI 65 C ep FV¥ 9 el 7s VAPLIL) yOeGe5d 

FY = EY + CYeer2 

FY = 1Ge * LCUNV 

CALL SYMELLI eT ph Y¥ Help e ity YAPTyWOeed 3 
YNUKM = 120 

ar ( ANGKM ete O ) GU IU 34 

FKEMiN = ACL}? 

YNUKM = Yea) 

OU 35 1=é_NPIS 

iF 4 KbLd e6T. FREMAN ) GU TO 35u 

FKEMIN = ACL) 

YNUKM = Yeti) 

COUN Fl NUE 

Ir ¢ YNUKM eEwe CoO ) YNUKM = 1.20 

CALL SYMBULI -270s FYF*Lebde wits LUMNUKM PT = 99C2Ce 10 D 
GUT( 1») = rUMAT 

LUTtec) = FUMAT 

OUT(3) = FUMAT 

Cale FLPDBLO 4 YNURMs ils &s UUT, FUMAT 3 
CALL SYMBUL ( el eFY¥tsecdvel4s UUT290-0, 11 ) 
CUNT INUE 

CALL SYMBOL eS eel eeO7TeSTITL tees 10) 

bu 34 4 = 193 

NL¢l3 NAME L(IGyi? 

Nodiad = NAMEZ(1Ge—4) 

CALL SYMBUL (me Te Fee Oly N19 G09, 1 Od 

CALL SYMBDUL Ee Te beS peu 7 aNe pee 1G) 

PLUT PULNTS UN PraSt ANGLE VS FREW FPLUT 
SLALK = 156 * CUNY 

SLALYL = Ge * CUNV 

SLALYe = Lée * CUNV 

bu 100 4 = ig NPTS 

YiNew = (¥1l¢i) — Yimin) * (SCALY] / DELYL) 
Ir (FrewUr «Ewe Ged GL TO 90 

ANew = (XL) — AMIN) * (SLALX / DELaAd 

bu TU 95 

CUNT INUc 

ANEW = (ALUGLOLAAI ee CCL) — ALUGICIXMIN*. COLD) * (SCALX/DELX) 
CUNTANUe 

Ir ( ANEW oh Te Ge «UKs ANEW ebTe SCALA) GU Tu 106 
CALL SYMBULCANEWS VINEW, U2 5—9UyU.0y-)? 

CUNT ANLe 

Y = 10.* CUNV 

CALL PLUT tleby Yors) 

PLUF PULNTS UN AMPLATUDE VS FREW PLLT 

AF 4 AMPUP eEWe Ge J YNURM = ALUGIOLYNUKM) 
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12/01/18 
alessele 


Olid» 
06100 
Ovlel 
OCiog - 
0G163 
O0lus 
CC105 
Oflco 
COlol 
Ovibts 
GU1L69 
ocl7e 
ool/l 
4Ol7T2 
60173 
OO1LT4 
OCisd 
CUllo 
Ool177 
COLT 
1 
OG16C 
Uvlol 
OGloz 
OGlse3 
OUL64 
O15 
OGlto 
O0lte7 
oc188 
O00lsd 
001490 
COls1 
OClyz 
OClys 
00194 
9014¥5 
OG1Y¥6 
ocly7 
oC198 
9ClYy 
Ou2u0d 
oc2ci 
v0z02 
ucC203 
90204 
OGzZh5 
Ov 2to 
O02u7 
0G2C8 
Obéuy 
00<10 
$0211 


PAGEL 
14% 


Sersar 
Ocicoy 


PRATT 


& WHIENCY ALKCKAFT OlVISIUN VEK 


; CSG.PAN757 10.0 


105 


97 


Yd 


99 


11.0 


2c0u 


Ov 110 1 = ly NPTS 

IF (AMPUP eeu. Ved CL TU aud 

YeNeW = (YZ01)/YNUKM — YZMIN) * (SCALYZ / DcLY2 ) 
Gu TU 97 

CONTINUE 

Yc2Ncw = -1.0 

IF ( Yet) sbU. O66 ) GU TU 97 

Y2¢h) = ALUGLOLYZ (is 9 - YNUKM 

YeNew = (Y¥2¢4) — YEMiND * GSLALYZ / DELY2) 


Ir (FREWUP 2EUs. Of) GU TU ¥b 

XNEw = (X¢L) — XMIND * (SLCALX/UELX) 
GU TU 9y 

CUONTINUc 


ANEW = (ALOOLOUACTD&eUGid — ALUGICUAMIN®.GOLI) * FSLCALX/UELA) 
CUN PANU 

AF AY CNEW eh Te Sod YENEW = ei 

IF (YZNtwW eoT. SCALYZ) YeNEW=SCALY2 + 21 

1F (XNtwW el Te Use elke ANEW 2GT. SLALK) OO TU 110 
YeNcw = Y2NEW + Y 

CALL SYMBULLANE WW  VeNEwy ele dp Ue e Ge i)d 

CUNT iNUc 

CALL PLUT(Y eel eo 9-3) 

Kt TUKN 

ENO 
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12/07/76 
41233202 


00212 
00213 
CCzZ1l+ 
00215 
O02lo 
C0217 
00218 
00<c19 
90220 
OCz21 
0022 
00223 
00224 
Oued 
00z2<¢6 
90227 
OG2<o 
OCecd 
CCesb 
00241 
Ob232 
OC253 
00234 
06235 


PaGe 
7) 


SeKlar 
021264 


PRAII 
CSG. 


c 
c 


ic 


10c 


Go wektNcy Adncnarl OlwiSiun 
rN 157 


VER 12/04/16 
1¢.¢ 11.33.42 


Lala Stl beBLPRNTK al cevtel OCL aS UF 1le/GT/T® £55 


164 


CATA Stl b26LRRNIR AT Level Ga9 AS UF O01/30/T% Occoc) 
SUERUUTING FANT CSYMi gy SYM2¢SYM3g sl YM Lg AL YM y AMP ye Ale LuyLUMAA Me) = COOLZ 
LCUMMUN ZEUGINZ grUEL, NAUGLR, NCUMUF, NrSUPy NPKNIK, NPKNIF 000U3 
GLMENS LUN SYMLG ADs SYMZ1LI» SYMSULD es VUUTLI495), VUUlcianoly 00004 

* LeYMitlds ICYM¢t1) Cucus 
PATA Eu wh 7 ks EF acces 
de (NPRNTR.GT.O) RETURN oCcciy 
Meri = MQ #1 Gvu0us 
VUUTitiysd = AMP ocety 
vuuléetlys)d = Xl 0vuG.0 
os $2 2 00011 
dh tdeGeeMUP]) 1 = 4 + 1 00042 
Tr (OU eGo lLUMAX eANUe veGEeMUP1) GU TU 10 6001s 
IF (JeGreMOP1) vy = 1 OCCis 
ar (dette) KETURN vu01> 
bu 50 KR = 1,3 OUOlo 
ikKmM = ILYMLtK) 0C0;17 
AKMe = al YMc(n) 9C0i6 

WHilc €6¢1U00) (SYMLLaMM)s SYMZLIKM) s,s SYMSLIKM), OO ay 
* SYMILCARMZ)y SYMZU1RMeds SYMSULKMC Ds 060<0 
* (VLULLING RI s VUUIZINGRDyN=194)) v00e1 
FURMAT (kp AS Ale 2rgh2a*/* At eAl el Xp AL e5G1366) OC0c2 
is 2 000c3 
J = 0C0<c4% 
vLU 19 Li = ioe 000c5 
BU 1vC so = Leme 00026 
vUuuTitilsvy) = O01 OCO<c7 
VOUTclilevs) = Of 00028 
KETURN O0Ccy 
ENO 00030 


PaGe 
To 


StkiAc 
U<cidoy 


ee ee ee 


PRATT & wrhlTNEY ALKUCKAFT ULVISIUN 
CSG.PANIST 


c Data SET BZ6UPKNTSV AT LeVet OO] AS UF 12/07/78 
Cc DATA SET B2Z5UPRNISV AT LEVEL O22 AS UF 03/26/78 


c LATA Sel B2bUPKNTSV AT LEVEL 018 AS UF 0173 
SUbBKRUUTINE PRNTSV 


0/76 


(SYMLySYMey SYM3 9 AMP py X1eCUsCUMAX) 


CUMMON /AUGIN/ JFUELs NAULUP, NCOMOP, NESUP, NPRNIR, 


CUMMUN /PLUG/ TLEILEs STafltes NAMEl, NAME2,s Al 
ULMENSIUN NAMc1 420 _95)9 NAME2Z( 2093), STATLEILYD, 
* SYMLUL), 
VATA ly J / bp 1 4 CUP / 480. / 
iF UNPRNTK.GT.O) KETURN 
VUUTLidsud) = AMP 
VuutZt ly) = Al 
TF (betel) COPCid = LU 
J = 2 * § 
Ir (JeGteos4) 1 =I +l 
LP (CU sGe eLUMAX CANDe eG e444) GU 1G 1C 
TF (su eGE 44) v = Ll 
TF (Lett .4) KETURKN 
aC LF (NAUGOP ete LeAND eNCUMUP cE ele ANOONFSUP CEWe1?D 
LF ANA UGUP et Gel ANU eNUCUMUP ecu el eANDeNESUP -EW ec) 
Tr (NAUGUP 6b Wed AND eNUCUMUP ecw eo Le ANU NF SUP Ee Lh) 
Lr (NAUGUY e£ ued eAND eNUUMUP eb eb eANDSNFSUP ctwed) 
LF (NAUGUP 6f We 3 e AND eNCUMUP EU 6 Le ANDSNFSUP etuel) 
Lr UNAUGUP 6b. sANUeNLCUMUP cE Ue lL eANDeNE SUP cEUe2) 
TP (NAUGUP et Ue le AND eNCUMUP 260 62 e ANOLNF SUP. EUL1) 
lr (NAUGUP 6G. LAND eNCOMUP 0662 AND NEF SUP oEU eZ) 
WRITE «¢o,LOOl) Kl, STAThLes (LUPILdyt=1_4) 
bu 20 KR = 194s 
SC wkiTe 46,1000) ISYMLIK)D s SYMZIK Dy SYMSIK Dy 
* (VUULLING KD VUUTZINe KI gy N=1l yo) ) 
FUKMAT (1X9 26492Ay42 90K, 6G15.0) 
rUKMAT 


FOede® MERTL® yg SXy*FREWUCNLY =" phOedy® HERTL* y/y 
iXs*PARAMTtRK ID NU. 


eereree 


*PRASE ANGLE) 

es 

Js = 4 

Ou .0C la = bee 

vl 10€ gy = 
VUUTI tidy Jud = Of 

160 VUUTetihydud = Of 
vU L1G RA = Lee 

lic =Vurinwd = Ce 

101iC FURMAT 


' 
a 
- 
+ 
wu 


T1Tee 


SYMZO1) 9 SYM3¢1) 5 VUUTII64:45)_9 VOUTL(4943)5 


WKITE 
WRITE 
wRITe 
WRITE 
WRITE 
wkiTe 
walTe 
wRITE 


CL Xe PRUMBLE* ee iXehigh ¥A4e/e92GXe*FRKEQUENLY =* 
© PER TE% s SX ep *FREQUCNLY =" Foods® HERTZ 9 3Xy*FREQUENLY =" 


VEK 
16.0 


E33 


NPRNIF 


(20), 
Cori4) 


(6,1016G) 
(6.1011) 
(60,1012) 
(6,1013) 
(o,1014) 
(60,1915) 
(o,1016) 
(651017) 


2FOeds 


9 7TXe*GAIN' Sky *PMASE ANGLE OAs "GAIN, DXy 
"PRASE ANGLE* 0X9 *GAIN* 9 D5Xy "PHASE ANGLE * 9 6Ay TOAIN' yp DXy 


* PRUXIMATE FLUW SPLITTER USING cMPIRI CAL CUMbBUSTIUN DATA" s//) 


10,41) FURKMAT 


* KEMUTE FOUW SPLITItK USING EMPAKICAL CUMOUSTAIUN UATA*,//) 


10i¢ FURMAT 
* SPLATTER USING EMPIRICAL COMDUSTIUN LAIA*y//) 
1013 FURKMAI 
*LITTER USING EMPIRICAL COMbUSTION DaTat,//) 
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12/0 //16 
11.33.02 


oooci 
000C< 
00043 
00004 
QUu005 
C00ce 
00007 
0c0vus 
Q00U09 
00010 
occil 
06012 
006.13 
000.4 
00015 
000.6 
00017 
ocolse 
oo0iys 
00020 
00C.cl 
O00<2 
00023 
00C<4 
vvu0ds 
ovlco 
OCO<c7 
990c8 
66024 
OCCsC 
vvd0sl 
CECs2 
Uuls3 
00054 
O°055 
GCOs50 
OCCOst 
OCC oe 
UcOsy 
0u0+o 
OCcOslL 
O06+<e 
OCO4s 
OU044 


(linds*KUMbLCE MUOEL with VEcGUT EER FLAMtEALULUCK AUGMCNIUK ANLOCC 45 


OLUs6 


Cinnks "RUMBLE MODEL wiTm VEEGUT IER FLAMeERULUEK AUGMCNTUR ANULOOC47 


9C0st 


(Lele "RUMBLE MUDEL Wilh VUKBbAX AUGMENTURK «ND PRUAIMATE FLURNO0OsY 


CLCs0 


(lels*KUMbce MUOCL Wilh VURGELA AUGMENTUR &NO KEMUTC FLUW SrCCU>l 


00052 


oes 


PaGt 
V7 


SERIAL 
Oclcoy 


PRAVTE & whlINtyY ALRURAFT ULVisiUN VEK 12/06/18 PAGt ScKLAL 
CSG.PAN(57 10.U 11.654-02 7s 021269 
1014 FURMAT tinls*KUMbLE MUDEL With SWiAKL AULMENIUn ANU PRUXIMATE FLUW 00055 
* SPLATIcRKR USING EMPIKLCAL CUMBUSTIUN UATA',//) 90054 
10.> FUKMAT Cinly*KUMbLE MUDEL WITH SWIKL AUGMENTUK ANU REMUTE FLUW SrLOCO55 
w1TTeK USANG EMPIRICAL CUMBUSTIUN DATA's//) Ou0r6 


lGic FUKMAT (inl,*RUMBLE MLDCL wiTh VeeGUTTEK FLAMEMULUVEK AUGMENFUR ANUOO0S? 
* PRUXIMATC FLUW SPLATIEK USING PFLAMEHULUERK CUMBUSTLUN MUDEL CUMDUSOCO58 
*TLUN DATA*,//) OU0s54 
1O1l¢@ FUKMAL Clhl, *KUMBLE MUuDeEL wITh VeeGuUT tek FLAMEMULUcCR AUGMCNT UR ANLOOOOO 
* KEMULE FLUW SPLATTEK USING FLAMENULUER CUMDUSTIUN MOLVEL COMbUST 1000001 


*N DATA* s//) 000o2 
mt TUKN 00063 
tNoD 0v004 
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c 


PRATT &© WHlINtEY ALKULKAFT DIVISION VEK 12/07/78 PAGE SEKLAL 
CSG. HANT57 10.0 21.33.02 79 021269 
LATA SET BcBURSICL AT tcVer 002 AS UF 12/07/78 £33 
FUNCTAUN FSICCETAWsOTEL op TR» TA Prd) Ovocl 
OF = OTFL * ETAwW 00002 
Tr = JA + OFF G0cG3 
LE (Pek - 12320926550 00004 
<b Pole = HOC HL FE FLCECAP( ~2LlLSOL/TF DS TF 1 341 (2.8PHIS( Le -ET AW)? OG0U5s 
AB* ODF LSPA PeTAWI/S HH AE TAWei 4s 7O4PHI*( 16 36-ETAW) )*81 66) 000G6 
KE TURN pexerelen 
3f Psit = SO HLALIE FLL MEAP I -—Z1L1SO0/TED/ TE 441 23% 1. 088PHI ee. O/E TANS 000C8 
AUC Le ETAWI/( 4. 7TO-ETAW + eudsPrI1 e(ieel -68E TAW) I) e816 O0O6y 
Ke TURN 00010 
ENU o0udil 
a 
167 


PRAT) 


CSG.PAN IS? 


oc 


ALCO OCOMSCONOCAOOOCACEHA 


wal 


iG 


wt 


G wralNey¥ ALKRUKAFI CIVISLUN 


UKTA SET beouUPVAL at cevte OOl AS UF Le/OT/TO £55 


LATA Stel CT5CPVAL AT LeveL VOL AS UF OT7/13/TO 
FUNCTLUN PVAL (CUR s Ae Vo Ady Led 
PLUCYNUMLAL EVALCUATILUN PRUGRAM 


VER 


16,0 


VECK 5914 


SAME AS wPeEVAL eEXcerT Trhls FRUGKAM 1S A FUNCTLUN SUbBPRKUGKAM 


Cur LS Pmt CUrFrACIeNT ARRAY, wrtwe CUFt(L*2) iS Tre CURVE 


LUeNTLIFICALILON ANU CUPL 3—-N) AKE Tritt LAMA TSsOEGKEE, 
CUErFACi ENTS FUR téum StecCTIUN. 
x 1S «NW INDEPENDENT VakKiaAbee 


Y LS BN LNDEPENGENT VARA ADLE (ol1VAR LATED 

Z 1% Trt DEPENLENT Vaniabce 

it aS TYPe CURVE INUALATUK 

Te ic Tre cRKRUR SIGNAL. =i 1S Less Tran x MIN. 
Fee 1S GREATEK THAN X MAX, 
=3.6 1S cesS THAN Y MINe 


x 

x 

Y 
=%. Y iS GREATER THAN Y MAX. 
=>e Y LS LESS THAN Y MIN ANDO 
=O. Y 153 LESS THAN Y MIN AND 
=7e Y 
=o. Y 

dF ANY CAML IOS) LS FACE EUCD, 

UAMENSAUN CUFLIG) 

Al =A 

le = © 

TceST ih KX AS LESS THAN A MIN. 

Te (ALL T.CUF(3)) GU IL 5 

TeST sh & 1S GREATER THAN X MAX. 

LF UXLeLEeLuria)) GU TL 2° 

SeT A EWUAL TO Tre CIMIT EXcecOrDd. 

AL = CuUr(4) 


4c = 1 

bu TU 10 

Yl = cbri3s) 

ScT EKKUK SIONAL eit. 
46 * ER © 4 


TeST iF UNAVARAATE UR BIVAKIATE. 

AF (11.tuec) GO Tu 106 

UNI VAR LATE 

N =5 

TEST dF A 4S LESS TRAN A MAK Ur SECTLIUN,. 

AN =N 

ir (ALeLE’«CUFINID GL TU 46 

meSeT INDEX TU CUMPAKE A MAK UF NEXT StELTIONe 
N = AN * CUOFIN@1LD® Sek 

bu fu St 

CALCULATE KBAK = ALPRARK * BETA 

AGAR =Xa ® CUR(N@Z) * CUPING3) 

LALLULATe £2 = AO * KBAKLAL * ABAK(AZ * KBAK(AZ + woes) 
2 = CUPLNe4) 

1i= Ned 

ic= AN @ Sele CUFINGLE 

uu SU 1 = Ele le 

£4 = 2 * XBAK @ COFRGIL) 
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ee en 


ANU 


et 
3 


4S GReAicK THAN Y MAX AND 
1s GREATEK THAN Y MAX AND E 
4 wALL BE CALCULATED AT 


le 
Ze 
c 


le 
ce 


s2/0t/718 
11-33-02 


9¢001 
Q00F2 
0G0C3 
OUGUs 
00055 
00006 
O000v7 
60CuUs 
Q00u9 
0c010 
0v0i1 
00012 
00043 
00014 
00015 
OCcCle 
00017 
0001s 
00019 


frre LIM. 1000<0 


00021 
000c2 
0u0<3 
OCCc4 
000.5 
000c6 
O90c7 
00028 
oceey 
06030 
00031 
OC0s2 
00033 
99054 
00035 
00036 
OCOst 
00036 
00059 
00040 
OCO41L 
00042 
00043 
00044 
00045 
00040 
00047 
00048 
COC49 
0C050 
00051 
00052 


PaGbe 
6G 


Strsar 
U<ildoy 


————— 


PRATT 


& WhlINEY ALKCRAFT DIVISIUN 


CSG.PAN7T5? 


ico 


1c5 


170 


1ec 


190 


PVAL = 4 

RKETUKN 

BIVAKLATE 

¥io wy 

TEST 1F ¥ 1S LESS THAN Y¥ MIN. 
Ir (¥1.GEeCLFI5)) GU TO 1C5 
IF (le) 11Q@s 210s 150 

CONT ANUc 

TEST It Y 1S GREATtR THAN Y MAX. 
AF (YL -LESCUFIOD) GU TU 150 
StT EKKUK SAGNALo IE. 

IF (lt) Llély 1205 14C€ 


ce & 3 

Gu TO 135 
dle = & 

GU TU 145 
bE @ SER Fm 
Yl = cCurFI5) 
Gu Tu 1£C 
je = le + 6 
Yi = CUFIO) 
N=7 


TeST 2F X LS LESS THAN AMAX Ur StELTIUN 

XN= N 

Ir (ALeLESCUFINI) GL Iu LT 

KREStT INDEX TU CUMPAKE AMAX UF NEXT SLLILUN 
N = XANFELUPENtL ILS DRLLUFINGL D420) oe t601 
GU TU led 

CALCULATE XBAK AND YKAR 


ABAK = CURING) * Xa * CLF INES) 

Yuak = CUFINe4) * Yu * CUFING5) 

CALCULATE £ = CULALFA ALY FADIXT (MASE VY HAS DY*AO DAF 
lai = CUFIN®1) * ol 

NS =N #7 

2 = LCUFINS<2L) 

Jl = 


vu 1% 1 = dell 
21 = CUFINS) 

bu 180) vy = levl 
NSJ = NS ad 

Zl = 4l * YBAR * CUF(NSY) 
CUNTANUc 

2=21 + 2 * XBAK 
ak & 22 + 3 

NS = NS * yl 

PVAL = 2 

RETURN 

END 


VER 
1¢.0 


12/07/78 
11.35.02 


00053 
00054 
0v055 
00056 
ceos7 
0COSs 
000549 
OCOs0 
000c1 
OC062 
C0003 
00064 
CCCs 
00006 
O0Ce7 
00008 
C009 
60670 
ocoyl 
occT2 
00013 
000 14 
oco/rs 
COC To 
©0077 
G0016 
OLvoTy 
C0080 
OvOol 
02062 
90083 
UO00% 
CCObS 
ULOoo 
vCOu7 
Cvu0s6s 
aches 
GLOoxet 
QvGYL 
CCOve 
OC0O4¥3 
OL0%% 
Oretys 
CCOve 
CCOs7 
OCO%t 
VolOsy 
Oclce 


PaGt 
61 


Seminar 
Odlecoy 


PRATT &© WHLTNEY ALKCRAFT UiVISLUN VEK 

CSG.PAN /57 10.0 

Cc LATA SET BeOUKELIRL AT LEVet OOL AS UF Ac/CT/7T8 £33 
SUBKULTINE KECIKL 

€ PURPOSE EVALUATE WAKE KELIRCULATION KATE 


LUMMUN SCINPT/F rw PP SK ey PSs FRSK yp JFUELs VAyT Ay ARs TAUSALPHAGEAR 
ReAL et PSyCUFH yFARMb yg LST KM WEAT gp TEXT 

CUMMUN /UTPUT/S MOUTAsMDUTE pMOILFLOgMDTEVUsbETALyb2y0L15) pK1( 5), 
KXTLF US) pMDOTFL pK lL oPSL oe TLF eX bog ine ETAFH 

KyULUL SD eb LE, UMUUT, BUC yRTVU yOQUUT Vo db yEPSOyVeXOetPSADZETAO 

Ke STIeXLELOOD yEPSALV10G) pSFLELOC) st TAC 100) sNoTEP, TAEFF 

LUMMON /MiSL/ KHUAdMUAPAUUL Te PaelL UL, FRA TMP yolTeKMyTRO,OLF AD) 
Abe tA (5) yg ETAwWsMOTFLL, TEC yMUUIFLI 9) pF AKWs ST OAK, FARE 

CUMMUN /CKVS/ CRVMUAL SS) pCR VAM 44) 6K VLAM (20 Dp CKVPV 14) 

Ke CKVSL (56) gCKVHRI30), TRuPo( e263) eCKVTSL(26) 

Re CKRVO PTI 26) pCRVET 620) pLRVP TK co) pCRVSLE CLO Dp CRVEVE( LO) yCRVTSPCLOD 
KEAL Mie M2 ol LUDegLOUgK1 LUSK 

CBAK = 44.61 * SUKTITA * 460.) 


m1 = VA / CLoAK 

FriwtMe = Frew / 1l2e 

PS = 144. * FS 

Ke = 26070 * ALUGITAL) + 1.4603 

a = .ODEY © X28#5 —- 0095 * AZEKe - .066b * ALHHES 
X eO176 * AL*BC - 600d * XZ + 20420 

LOO = EXFIL) 

LOB = LUU ® (=1e626E-10 * RLPHA**4 * 7.863t-06 * ALPHA*#S 
KX — be5G08E-O5 * ALHHAR eZ + 2.046¢6-C3 * ALPHA + .6307) 

Me = Ml /tle-Tau) 

LOL = LDB * (16434 * Me + 26040) 

BUD = 506% * TAUF#S = 54614 * FAUR*Z + 47236 * TAURHC -— 16.97 * 
Kk TAU + 4.50 

BOE = bUL *® (be S57CE“1U * ALFRARSS + 3.547 -UT * ALPHARES 


RK ~ ef 6%r—-05 © ALPMA¥F2 + B.O09E-O5 * ALPHA * 2.4645) 
cleel / TAU®*. 25 
T2 = 29¥O * ALUGITAt400.) -— 66725 


x 

_ 
o 
' 


KIK = 6.0266 * 128*% + .CcTo * 1285 + 62567 & T2482 + 2954 * TZ 
x + Leso4e 

bOLL = bLUL * U.66 

RTVU = KTO * KTK *® ote / oDUL 
KL = Ueb * LOL * BUL 7 KTV) 

A = Ki * KHOA * VA * FHWIMP 
VK = 26 * LUL * BOL * FrWwIMPe*2 
PSI = As (VK * PS**2) 

PS = FS / 144 

Ke TURN 

ENO 
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i1.33-0¢ 


uccel 
OOO 
900u3 
200%% 
OG005 
UuCbUo 
ccou 
OULOU& 
00U0Y9 
00010 
00011 
OCOie 
0U0i3 
00014 
c0015 
00016 
00017 
000.18 
OCO1S 
00020 
00021 
OCO<ce 
000<3 
OCOL4 
000<c5 
000<6 
O0Ce7 
00028 
OCUes 
00030 
00044 
00032 
00033 
060 34 
006035 
00056 
00037 
00038 
00039 
00040 
00041 
00042 
00043 


PaGe 
b< 


SERIAL 
O<lcoyv 


PRAT? & whlTNEY ALKCRAFT OLVISIUN VER 12/07/16 PaGe SEKIAL 
CSG ePAaN/57 10.90 11.35.02 63 0212609 
c OATA SET BeBUKEGULA AT LEVEL O01 AS UF 12/07/76 £33 
SUBRUUTINE KEGULALAL sXneFLTL eFC T Zeke eXceV2eitK) 0o0o0ul 
lck = G OcoGz 
Yul = FLTLOXL) 000U3 
YRL = FLTLIXA) 0604 
3 Y¥e2 = FLTZ(XL) 000cC5 
YKe = FLTZ(AR) : 66006 
Dy = (¥EL = Vee) 4 VEX C607 
OTR = ¢(YKL -— YRZ) / YRI 000u8 
G6 42 = «(RE - OTL #(XK — KL) 4 (OTK - OTL) Cccouys 
YZ1L=F LTI(X2) 00010 
Y¥22 = FLTZtX2) 000,11 
OT2 = 4Y¥21 — Y22) / Y21 ocoi2 
LF (AbS(OT2) — 2005)402c0e20 00013 
2C 1F (ky -GT. 20)G0 TU 90 0C0Ol4 
Ky = KY #1 00015 
IF (OTZ * OTL «LT. GIGU TO 30 00016 
XL = ké OUCO17 
OfL = oT2 00016 
GU TU 10 00014 
30 XK «= X2 0c0zO0 
OTR = OT2 00021 
Gu TU 16 00022 
40 Y2 = Y2l 00023 
RETURN 000¢4 
so lER = 1 00025 
KETUKN 00026 
END 000<7 


PRATT & WrhlINcY ALKLRAFT ODIVISIUN VER 12/01/16 PAGe SERIAL 
CSGerAN?I57 1U.3 12 -3SeO2 64 OdlZoy 
c DATA SET besOKeESULE AT LEVEL OC1 AS LF 12/07/76 E33 

SUBKUUTINE KESULTUINDCAgIFAINe LHASS) occel 

CUMMUN sAUGIN/ YFUELL »NAUGUP yNCUMUP ¢NF SUP sNPKNTK ¢NPRNUP CCCOd 

CUMMUN /FLAMIN/ ALPHALCLCO) pALPHAH( 100) pFACILCO) pFAM( LOO), Ov0L3 

* HAC OLUO) pr oWHE LUO)» LSLCIELUO) yLSHL1O DyNSC (LOO) yNSHU1LOO)D, oCOL4 

* PESKICLON bp TAUCCIOO) pTAUNCLOOD sSTEXILULGOO Dg LESKLI 100) ,TOLVLOO), OC0U5 

* TOHCLOC) pwexTlL(lGOOr ALCL GO) ALH(160 db yNTUNTH 5066 


CUMMUN/ RMB LIN/BPK yp UPL Sy UPL UP UPHSpOPSPEPSCyEPSHyETAL yETACZ ETA, OCOLT 
* FAPFAVe LA gL Dy lLiyLitgL igi ny lc pMOL pMOHy MOKgPRNUL oP S6yT SHyZERyLEFL, §=9U0U8 


e Leb LZePP glee LEP Lehr Leib gle Try LE VL pLt Very [LURK Cp WELUOL ccocy 
REAL LSugh St pMOLeMOHyLAyLSyil eyLHyLl gl Kyl »MoK ¥C0l10 
Gc THiS SUbKUUTENG STUKES TYPE RESULTS», CALCULATES MASS AVEKAGES, AND 00011 
Cc SETS UP FUK JNFLUENCE CUtFFICItNT KUNS. OU012 
REAL MCUTA sMCCTFyMDUTAS COOES 
CUMMUN /UTPUT/ MUUTAyMUUITF pMUTFLO pMUTEVC, DEAL es b2 DOL (5) bli Dd), COCi4 
ATLE CS) pMOTEC eK Ll yPSL ye TLFCAg Edy Wy tTarh O6015 
AyULU(5) 9 Ba Ey OMDTUy BUL ph VU pPUMUUT Us VY epS LUPE P SOs VUrXOQEPSXC yt TAO OCGi6 
Ke SUP AXLES Od ec PSKLELOCOd sSELILOC dye TAt 100) pNSTERsTAEFFE OuCi7T 
CUMMUN /MLSUC/ RHUAyMUAPADULT PL pLOLgFHWIMP etl Fy KMyTFOVULF (5) OoCle 
AyOETAS (ID) pETAWe MOTEL Ls TLC ey MUUTEL( 5) pF AKWs STOAK gp FAKE ecoly 
CUMMUN /URKVS/ CRYMLA (44) pCR VAM 144) ¢ UR VLAM (ed Dp LK VEVI24) vv020 
Re CKVSL (36) pERVPR (30) 9 HKubhe (263) yURVTSLI26) CCCeL 
Ay CRVCPT (626 Dy CRVET (CO) pLRVP IK (co) pLRVSLE(L OD yCRKVEVE( LO) pLRVTSPI LOD OULce 
CUMMUN/SSV/SAVIE LE) s SAVEALE Dy SAVUTI2 by SAVFAK(Z)s SAVDILI2), 9090c3 
x SAVET ACS)» SAVMUAIC) ys SAVMUFI(Z), LLVEE)s LCP( 2d, LZLIV2)5 O00c4 
K LLCFACE)s SAVVALZ] Ig LEXAVG et TAAVG, AMUTADeFARAVGy TAAVGeXMUTFO, O0OC5 
x TEAKIT (100) 5 STIMDTALLOO), STMUTFEICChs STIACLOO)y,STVACICO), 00026 
x FAKWA EC LOO) pETASC AGC), UTE LOL C100) pATK (LUO) se TAAVPSSAVLIAZ)y ocd. 
x SAVLK 42 Dy SAVAL SU 2d ySLLELOOD y SLK( 190) gy SLSE1LO0 Dy SVFAL( LOO), 00028 
® FALAVLe TEXAVS  AWIL(1 90s, SLBI1LOO) pSAVALB ICI id( ce) 000.4 
CUMMUN /CINP T/FrW ye PFSKyPSy TES ep VFUELy VAgT AAP s TAUSALPHAS FARK coaso 
Aa KL ep EP Se CUFH pFAKME pg ASTKMypWEAT, TAT O0Cs1 
AFCISTKM .6T5.s CIGU IU 5 O0U5¢é 
Cc CURVte LS THt SAME FUK JPS AND JP5e 00C 33 
CALL UNDAK(TKIP4 ep lyrAny tayOTIy1S) 00034 
bu TU o 0C0O35 
5 UIF = (7Z200G~. + 16-6 * (1A -— 1eC%.))™ FAKME 006306 
TsHt = TA — OTF 90037 
FAT = FAKMb * FAR OCC38& 
Gc CURVE 1S Trt SAME FUK JP4& AND UPd. OUCsy 
CALL UNBAK(TKUR Ge lg FAT, 1O006e,0TUU,iS8) 00046 
OfUU = UTUD + 6% * (1G. — Font) OOGel 
fexl = vILD * T3nF C9042 
OIL = Text - TA O9C43 
6 UTFIOLUINLEX) = OTL 00044 
ETASCLNDEX) = ETAFH Qu045 
ATKULNUEX) = ETAFR * UTI OCC46 
TEXITCINDEX) = TA * ELArH * UTI O0047 
STMUTACANVDEA) = MODUTA 00046 
STMOTFCLNDEX) = MOUTF Ob04Y 
STVACINDEA) = VA C6050 
SPFTACANLEX) = Ta Ocos1 
FARwRCANUEX) = FAKW O0G0d2 
172 
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PRATI & WHlTINeY ALKURAFT DIVISiIUN VeR 1Zs/Ot/71b PaGe StKLAL 


CSG-PANT57 10.0 41.35.02 65 O212o04% 
SLITUCINOEX) = X1LO1) 00053 
SEKRUCINDEXD = ALOINSTEP) — Alt)? OuG54 
SLSCINDEAD = AF 00055 
SLBLLNDEX) = AL Ouse 
LFCLFAN .LE. 0) GU TU ivoU ocos7 
SuMrF = 0.20 00058 
SUMA = ©.¢ O0O>sy 
SUMb = C20 OocColt 
SUML = 6.0 o0cCel 
SUMD = 060 0002 
SUMG = C206 06003 
SUMH = 6,4 CU054 
SUM] = 0.66 OG65 
SUMy = ev CCCooe 
SUMK = C20 GU007 
NT = NIC OCOo8 
IFC ISTRM «EU. LINT = NTH OC Gey 
bu 10 L=igNI Qo007U 
LF (iwtstl) ete 1) GE TL 16 cuot 
LP CASTRKM eEWe OINS=NSLGI) OCC #2 
IFCLSTRKM «EU. LINS=NSHI1) OcCcT7s 
SUMA = SUMA # NS * LeEALI(id * SIMUTALL) 20014 
SUMb = SUMb * NS *® STMUDIAVL) Gcord 
SUML = SUMC *# NS *® STIACI)D * STMUIAII) © OCcO76 
SUMD = SUMD * NS *® STMDIF(A) oocr7 
SUMF = SUMP * NS * STVAUL) * STMOIAIL?) OCC71E 
SUMG = SUMG * NS *Scitl) * STMUTA(L?) Ccctly 
SUMM = SUMH + NS * SERTT) * SIMLTAL4) GOUsEU 
SUMI = SUMI # NS *® SueSti)d) * STMDTA(L) cccséi 
SUMKR = SUMK + NS * StbEt1) * SIMULTA) OUGs. 
JFCLSTKM 2.GT5.e OF GUL TU 10 00063 
SUMY = SUM * NS * SVFAC(L) * SIMOTACL) COC cH 

10 VUNTINUe 00005 
IF (SUMb ete. G2) GU TU 17 OCC dé 
TEXAVG = SUMAsSUME COCo7 
TEXAVS = TEXAVG - GOL 
TAAVG = SUMC/SUMB Cucsy 
VAAVG = SUMF/SUMD CC0Ov0 
FAKAVG = SUMD/SUMb 0f0%1 
LFCiStkm «Le. OC) FALAVG = SUMU/SUMb O00Ve2 
XLTAVG = SUMG/SUMb J00%3 
ALKAVG = SUMM/SUME CLC »4 
ALSAVG = SUMIZSUMB OC0ys5 
ALBAVG = SUMK/SUMB 00CY¥oO 
IFCASTKM ett5. C)GU IU 1d OCOS7 
Or = (feCClsw + Lbs * LIAAVG — 1eCGed )* FaKkMnd 0GO¥s 
T3HF = TAAVG — OTF CLO 
FATA = FARMb + FARAVG Cc1ce 

Cc CURVE 1S Trt SAME FUR JF& ANU ur5. o0ciol 
CALL UNBDAR CE KUPS ol FATA, LUO. UTULAsI5) Oclte 
UlLa = UTUA + 6% * CLO0. = T3nk) OC103 
TEAL = UTILA * Von COL 
OTITAVG = TEAL = TAAVG 60105 


PRATT & WHlINcY ALKERAFT UIVisitN Ver 1e/UI/ lo PAGcC ScKAAL 
CSG.PANTS5S# 10.0 11.35.02 66 Uclecy 
UTAVG = Te XAVe — TAAVE VOCivo 
tElAaVG = UTAVE UTI AVE acc? 
GU TU ic Ooc1cse 
45 K = the * BPKD * WELLL / CLERK -— (ie * bHK) * WLULL) OULU 
TEAAVG = (TeXAVE # KFITAAVE) / the + Rd) OC 1.C 
Cc LukvVE 1S Tmt SAMt FUR vhe& ANU UPD. OG1i1 
CALL UNBARVIKUP 4s dp FAC AVG TAK VG 2 OTALT my iS? OCLizZ 
c CukVve IS frit SAME FUR JP& aN JrD5e 00123 
Catt UNDAR UE RIP 49 lp PAKAVG, PAAVGeUTIU ne IS) OCLis 
tTAAVG = (lexXAWVG — TAAVG) 4 OLILTH cCiis 
tTaaVe = (TEXAVG - TAAVGI / OfluUcn 00116 
DILAVG = UTIUInN 9Cial 
20 AMDTAD = SUMB OClisa 
AMOTFO = SUML * 36CF Of4sy 
LT APULPASL A109 20720 O10 
<C i5TK = iStkKM + 1 Ovuldl 
SAVTECASTRK) = TEXAVG Ooléc 
SAVIAUISTR) = TAAVG Ulls4s 
SAVUTeiSTR)D = LVIAVG CClcs 
SAVFARCISIR) = FALAVG 9clcd 
Tr (AST Ree ed) SAVFARCISIRKD = FARAVE OCico 
SAVLT1L(aSTRD = OTLAVe CCle? 
SaVeTAtiSTR)d = ETAAVG OCletd 
SAVMUALISTRI = AMUTAL O0l<cY 
SAVMOFUISTRI = XMOTrO OG150 
SAVVALASTRE = VAAVG Oulst 
SAVLLULSTK) = ALLAVG OG132 
SAVLRUISTRD = XLKAVE O0is3 
SAVALStaSTRI = KLOAVG OC 134 
SAVXLBUISTK) = ALbAVG vulss 
SAVPS = PS 00136 
SC LF (SUMbeE we Fed) GE IL 95K UCls7 
TF (SAVETACASIR De bL&eGed GU TU 950 07156 
GU TU (90 s40gdby 00s TUdyIPASS OCisy» 
GU VAL = VAAVG Ovul+0 
clAVA = cLIAAVE 00141 
GU IL 9CO 00142 
SC Fai = FS 00143 
EARS = ETAAVE 00144 
bb Tu ¥LO 00145 
OG FARL = FALAVGFO.9S 00146 
Ir (iSTReEWe cd) FAKL = FAKAVG 00147 
clArak = cTAAVG 00146 
bU TU 460 O0ley 
70 Tal = Ths 00150 
tIATA = CTAAVG OO1>1 
ZEVELSTRD = SAVVALLSTRD 74 SAVETACASIRD * OE SAVETACASTK) -— ETAVA)D O01d2 
* 7 (SkVVACISTRK) =~ Valdd 0vU153 
CUEPCASTRE = SAVES £# SAVETACLSTIRG * FC SAVETALASTR)I - ETAPS) 7 00154 
” (SaVveS = bS1)) 00155 
ZETULSTRKD = (SAVTACASTKD + 46Ced 4 SAVETAUCISTR) * CUSAVETALLSIRKD §=00156 
* — cTATAI / (SAVTALASTRKE - Vain? CC157 


ZLFACASTRK) = SAVFAKLISTK) 7 SAVETALISIK)D * CUSAVETACISTK) —ETAFAK 100158 


PRATI & WhiTNEY ALRKURAFT OLVISLUN VeK 12/07/78 PAGE StKIAL 
CSG.PAN75? 10.0 11.33.62 67 021269 
* 4 CSAVEAKCISTKD - FAKLDD 00159 
AZCASTRd = O OClLe6o 
irpass = 1 OCl61 
IrFIN = & 00le2 
GU TO 1000 00lo3 
9CC sFIN = © 001604 
IPASS = 1LPASS + 1 OC 105 
Gu TO 10600 Q0lcs 
95C LPASS =) Ovul6e7 
IFIN = « OC 168 
I2Z¢istk) =‘) 00109 
10CC RETURN OCcLiG 


END 


00171 


PRAV) &© wehlINtY AlkKURKAFT O1ViSI1UN VER 
ULSG.HANTS7T 16.0 
c UALTA StV weBuRUMeELt wf Levee OGL aS GF 1Z/OT/Te £33 
Cc VATA Stl b4a5eMALN at Level OO AS LF lés2est7 


CEPR OETA EEE REAR OREO EEE SEETHER SE SESH EEE EERE ERASE TEER EEE ERED DE 


c 


CPR ERE EERE EERE EER MEDEA ERE EEL EREEER ER SEER EF FESEEHERH EEE EEE EEEE EE 


Orn 6456 SULUTLUN Lr CUMPLEX SAMULTANCUUS COUATIUNS 


SUBRKUUTANE KUMBLE 

LUMMUN ZAUGLINNZ JFUEL) N&UGLUP, NCUMUP, NFSUPs NPKNIR, NPKNTF 

LUMMUN sZUTKM/ KMAL, bIMINy OIMAAy BFIDEL, VETEKM, ibe Ta 

CUMMUN ARKXyALAg EK y Bde Kel 

CUMMUN/PLUG/ TlittySTallbe» NAMtay NAMLZ, Kl 

CUMMUNSSV/SAVIE Leds SAVEALS)s SAVUTI2Z dy SAVFAKI EC), SAVOTIIZ), 
SAVE LAL CIs SAVMUAL CI)» SAVMUFI2), ZEVidde LZEPI2ds LLTI2)y5 
LLFALEI ss SAVVANS De FEKAVG dE FAAVGs AMUT AU? FAKAVGy TAAVGyXMOIED, 
PEALE (LOC Dy SEMUTALLOO)s STMUTF( 100), STTACLOOrsSTVALLOO), 
FARWR (LOO SETAS(C AOC) ,OIFAUL LAGU) pATK( LOO dye TAAVPySAVLI(2)9 
SAVER C2 Da SAVALSE SE) yp SLLELGOD ySLK( LUG) ¢SLSt1 COs, SVFAL( LOO), 
FALAVGy TEXAVS s IW TI (100) ,SL 601060) pSAVAL EV ed el LLI2) 

UDIMENSIUN KVA4) 

DiMeNSivcN NURPAKM( CO) 

UIMENSLON NeME LLC pode NAMEZ (EU, 5) 

CUMPLEX AL(/5—97D) 

DiMCENSLUN LCY(ZCG)y AX(ZUO) » HXICOC)d 

OLMtNSIUN AMPLUT (2 00 920) yPHPLUT( cU0y eG) 

ULMENSLUN CAPLUT( COU), KerPLUT I cU0,eU) 

DIMENSAUN SYMLET5), SYMZUT5D,y SYMSI7T5 Dy TATLEV2Z0) 

ULMENSLUN UMEGAI5OO) 

OLMENSIUN CUL5SOO), STatLeriy) 

UIMENSIUN GANDI5COC) 

LUMMUN /KmbbOMy CK14150) 

UIMENSILUN BAITS) CATE) 

DIMENS AUN LEMBL ALSO) s LUMGL 2140), SAVAMI(4O0)» SAVAML140),5 

1 SAVPHLISOd, SAVENCI4O), SVPHAL( 4G), SVPrAcI4O) 

DIMENSLIUN LUYM1LI4O0), 10 YM 140) 

OLMENSIUN WN(S3)s UWI SIs WXIS)5 NPTS(3) 

DIMENSION SaVLCO(50G) 

UILMeNSIUN TeEMPCULT)» ATLYACB8ds LTLYcl bo 

DIMENSAUN PRASUP (20), AMPUR (CO) pAMPFAC 0 20) 9 FREWUR (CO), FRUFACI 2O) 

UIMCNSLUN YMENC2GRy YMACKS(20)_ LNOKM(20) 

ULMENSIUN SCHKIe) 

CUMPLEA AVAL, UOETERM 

KeAu NAME1L, NAMEZ 


~>»>*>»>> 


CUMPLE XK tK 
CUMFLEA CA 
CUMPLEX*®16 BANU 
LCUMPLEX DUM 


EwUAVALENCE (ORAL) CKC1)D 
EWULVALENCE (CPLUL LV OL ade (Aral dD pUMEG ALD Dy CPACLI»LUILD) 
VATA SYM] / SHRL » S4hV1L + SHRI 4nveé » GHK? 


» ned , , 

* 4nbs » 4nV3 » 4SnKs + GHPSH » GAVSrH » SKS 2 GHP CH yy 

* anVen » 4nRZh » SnWiN » SWS 9 GrmWBH » GHUUUT, GHPS 

» SHV 9 SHKS 9» SPS 5 GHVS 9» 4HKS 5» SHPO 9 SHVO 

* 4rRo 5 GHP 5 SnVi 5 GHRI 5 GPK 4 GHVE 5 SHRO oy 

- SOPY 9 SAVY 5 4mKY 9 SHPLO » 4HV10 » SHKIO » SHPLIL + 
176 


12/0t/ lb 
11.235.0¢ 


00001 
ocece 
Ov0U5 
06004 
OocoCs 
OCOts 
OCOLT 
0U0Us 
000u9 
00010 
000,11 
000,12 
00013 
00014 
00015 
00016 
ocoi7 
0001s 
0ool1Y 
CcceC 
OUUZ1 
OObeZ 
G0CG3 
000e4 
90C 25 
Q0026 
OCOcT 
CcoZs 
OU0cy 
00030 
00031 
00032 
O0COs3 
000 34 
00035 
00056 
00037 
00038 
OCC3y 
00040 
00041 
OU042 
00045 
00044 
OC045 
LOU4s6 
OC0O47 
0C048 
00044 
0005u 
00051 
90052 


PaGe StRLAL 
68 O2ldoy 
aa ae 


a 


PRATT & whLINEY ALKUKAFT OLVISLUN 


CSG.rANI57 


» 4hV1l1l 9 “Ril » 32 * Gh 
DATA SYMZ / 715 * 4H / 
VATA SYM3 / 4H 1 2 4h ec 

* on 7 » 4 8 , 4n 9 , 

* 4nl4 » 415 + #4hLG 4» 

* hcl wn 4nZe 5 SHS 8 

* N20 g SNZY og SGU og 

* 4n35 9 n30 » 4n37 

» SH4e 9 SHSS 9 3h * 4h 
DATA XbLs* ‘/ 


OATH N / 435 ¢ 


» LENTcK / © / 


tr (K16GT.2O 6ANDe ICNTERK.GT 


IcNTtkK = 1 


DUM = 10.0,0.0) 
Cc INLTLALAZE ARRAYS 


5C vu of 421,75 
BxX(1) = O.% 
CALLE 
uu oO v 
AL(igu) 

of CUNTINUE 
tel = © 
INND = =. 
LUNCEC 
LEUUNT =U 
drpLuT = C 
ee | 
my = © 

te READ(S 93446) 


ly 
O. 


OU 60 1 = lyo 


Tre « FRYER) 
Me = Me * 1 
L1EMbLI IMU) 
LLMBL Ee IM) 
te CUNTINUE 
GL TU WC 
3446 FUKMAT ( blie 
9G CUNTINUE 
Cc PLUT wrul 


166 iyT &= £PT © 3 


IF ( IbT GT. 
KEAL to,59UU) 
a PROWOMULE ID 
Ir (NUPAKM GLP 
Gu TH 100 

laf it (irl etwe 
NUGUUL = G 
PT = IPE = 3 
bu Tu 13€ 

lect Nubuue = 1 

15¢ CUNT INGE 
Ke AU o5—953355) 
UL 138 KY = | 


15 


CALTCYLOEING aT 
ete & elke 1 
ATcYiedad 


ticyétl) 


» LlAy Ley DAD 


z¢ ) 66 Tu Li 
NUPARMUAP TOs 
AMPFALUIPT)» 
1) s&Qe G ) GU 


1 9 GL TU 129 


(WINE UWlde 
¢ 3 


VEnK 
10.0 
/ 
4n o> + 4h 4 + 49 5 4 SHO gy 
4nlC oy 4h} 1 4mle » hls 
4H1Lt 9 Gml& 9 4nid 5 SRH2U 4 
anze 2 4n25 + 4n26 5 het 
4n32 9 432 9 43D) 9 SHB 4 
4n3b 9 434 9 4H40 5 GHOL 
/ 


20) GL TU ib0 


CYCUANWIeLNW=1L, Od 


(CYZ(i) eEUe GO ) GU TU 9G 


u 

ANUKMULP ED)» AMPUP LAPT) sPRASOP (IPT), 
FRUFAL CAPT)» YMENCLPT Ds YMACKS(IPT) 
Tu 110 


dy WAOlwIy wel ,s)d 


177 


l2sCT/78 
11.3562 


60053 
00054 
00055 
05056 
0U057 
00058 
Ov0Ls 
00000 
Cu0ol 
000c¢e 
OCGos 
OC004 
0C005 
00006 
69007 
60608 
ocCuy 
occ10 
00071) 
OCOl< 
O0C01> 
On0's 
OCO1D 
GC fo 
Ovo? 
0001s 
O0Cty 
00060 
OccsL 
Gvdeed 
00003 
OuCbs 
VUC55S 
C066 
Obbc/ 
OUUGE 
OC ObY 
Ove” 
ovoyl 
OCUY2 
O0%Cs3 
CLO%4 
OUuUs5S 
OCCY6 
OCOyx7 
Cv0ss 
00CYY 
G61CO0 
OC1C1 
Ovide 
0013 
OC1L4S 
Goole 


Pave 
oy 


SERAAL 
O2i264 


———— 
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CSG.FANTIES 


lot 


14U 


loc 
lot 


Lic 


Leu 


20 
ic 


Zel 


250 


256 
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G&G wrhlINey ALKUKAFT ULVASLUN Ven 
10.0 

dr (UWIRU) EW O0) GU TU 156 

NPTStnwd = GWALKW) — WNIKWDIZOWIRWD © 1 

CONT LNUE 

LL = G 

KeAU (5e92ul) tTemPCulids L = ay 7) 

vu 160 LLL = ly ¢ 

dr CTeMPCUILLE) et. ANNODD GL TU 176 

LL * Lee.) 

MP CAL che SOG F GO 1G £50 

wellel6s2541) 

Gu Tu &10 

SAVLUILED = TEMPLUILLEL) 

CUNT INUe 

bu TU 14660 

CUNTINUE 

Kehu thyclld) KMAG, LIMIN» BIMAK, OTUEL 

BIMIN = BTMIN / STec¥olo 

tiMAX = BIMAX / STecSdTe 

biurkl = bBIVEL / Stee4dTd 

KMAG = KMAG *® 6.06316 

iotla = O 

SVE“. & EL 

KASE = C 

CUNT INUE 

istTa = 0 

lranSt = G 

qvdid) = KD) 

Kase = KASE © 1] 

TPF (KASE eleelGs GU TU clu 

WKI TE Oy c0cu) 

vu TU biG 

CUNFTANUE 

CUNTINUt 

IrtcG = O 

lew = 1 

Tr WWELGOD ete Oe ) GU TL TLO 

liz = 06 

be =] 

bi = 12% 4 

Ir ( 12 e6Te SOC ) OU IU 25U 

lu = 10 +l 

VaALUc = WNhELGe) © Le * UWiluw) 

Tul = «lh * Cwhiww) 

dr (VALUE — (wAtLew) © TLL) ) 24Uy cH, 250 

Cutidd = VALUE 


Gu TU 23C 

be * tf = 1 

CUPMAA = CULL) 

Cu o9G IM = Il, we 
UMEGALIMIFCUOUIMI® 6626318 
LUNSTANT Oecbslo 1S 


hots 


4159 


Gel MATRIX ELEMENTS FRUM SUBKUUTANE INPUT 
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12/C (718 
11-34-02 


Go1l6 
OciL7 
OUL0b 
Onley 
00110 
Oulll 
CClig 
001143 
00114 
OO1llS 
00lio 
00117 
Oulib 
oolly 
OU1¢0 
OCléi 
OClcé 
O9%1<3 
Olas 
OOled 
Oulz6 
Ocict 
OOlds 
OCL<cY 
OVL40 
0C151 
CCls2 
UULs3 
OC Ls4 
0¢C135 
01506 
OC1s7 
OO1sb 
GC1lsy 
Gu1L40 
Guls) 
UL1lse 
00143 
OCl4e4 
OOL+5 
OC1l4e 
00147 
COl4ss 
oC lay 
O16 
OOL>1 
Ocloeé 
OC1l>3 
OC 1l>4 
00195 
CCLy6 
00197 
GOldo 


PaGt 
GU 


SERAAL 
Ocleoy 


on ‘tm 


PRATT & WnhiT NEY ALKCRAFT O1VISiUN VER 12/01/76 PaGe SERLAL 
CSG.PAN «57 10.0 11.33.02 G1 O2lebs 

C en rs en rn samme ae seanaaaace te rene mn anna secnann= OCloy 
Tr CL dZeh dob Uel Umedddlcdotel) walle (6,10101) C160 
LO1LC) FURKMAT 4° **® WAKNING *** Trt FLAMERMOLOER CUMBOUSTAUN MUUVEL CASE nAOClol 
aS FALLCEU FUR AT LEAST ONE STKEAMIUbE. 8 7* [rit RUMBLE MUVEL CAScOOloZ 
< nAS NUT BECN EXECUTED. *) 90163 
ah CLLLEL de Ewe deemed Cli ed etwedd) KETURN CClos 
CALL LNFUTY (AL bX pUMEGALIAD RASC VAVeLFIKST) OC165 
NZ = N*N Ovloe 
4l=vu OUloT7 
Cc CALLULAITE NUMbER UF SUb ANU SUPCK DIAGUNALS OVio’ 
CALL BANUEXIN» T59AL sb ANU eg NSUP pNSUL ) 9169 
NSS = NSUF * | oc1470 
NS = NSUs 00171 
LGAN= U OCileé 
Isé # &k 00173 
dsod= 1 OO1L 14 
CS 5 es Se A SS ee mes a ee ee ene se are GOats 
Cc SETUP SANGLE SUPSLKAPT DANU MATKIA AKRAY 00176 
Cn rn a rn a ne er ere ene cane oo a a a oci/s? 

260 ir (INS eLEe OF GU Tu SOC OUL78 
OU ¢e¥u 4 = LleNS oo0ll9 
AdAN= LbANt) OU1l6O 

24C FANUC ALbAND = Of OCloel \ 
30C CUNT INUE Oleg 
OU 510 v = LSS2_ NSD OCloe3 
ie tu «GT. NI GO TU 3¢G CCLdv4 
1bAN = sBANe] GO1s85 

BALC BANU(ITBAND = ALULSL edd Olvo 
Gu TU 3eu OClbs 
32C Us 330 Jy = ve NSS Guletb 
LOAN= LOANS] Oley 
330 DANUUIDEAN) = Ue CC14¥0 
34C asd = idsded Oulsl 
NS = NS=d O0lY. 

NoS= NSSel 001493 
dr C152 ebTe NSUBTLD ASSL = ASSLO1 OCV1L44 
de tlsd ebte ND GU TU Z2eCc 00145 
KMALVL = KMAG / 66ét310 CCL 46 
BETVAL = UMLGALIM) * 57629516 Ool1y7 
Ir ¢ TeeTA ewe LoD wkI te (e921 UO) KMAGVE, BETVAL UCivo 
CS 6 8S OBS 8 8 6 SBS E888 SE 6 OSES OSS ESS BESS © SS SRR SSS Re See SSSR ese = Oclyy 
c SULVE baNU MaAIKix 90200 
eS 8 SS BE SS EE AE ie Oe Ete Oe Aas oS SR es i HE we eee earn Seer = cozul 
demn = ¢ OCe%e 
CALL OMAT INSUPyNSUD eNO ANU i tKR) 00¢63 
CALL SULBAN INSU pNSUC ey Nyt ANUgbA CX) CULbe 
Ir | NUGLULL eNE. Cd) GLE TL 400 CUcud 
IF ( ahLUl eftte % D GU TU #00 0020 
3eC LLUUNT = iluuUNT * 1 N0<e07 
de CiLlLuNT «bie 200) GU TU su O00<eCs 
wkKIiTclOs6Ll5) OULU9 
©OOLS FURMAT ( LUA, *ACUUNT GaeaATeK TRAN «OU ) 002.10 
vLut = 1 o0zil 
, 
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PRATT &© walINeY ALRLKAFT UivisluUN 
CSG.PANTS?¢ 


ace 


ae 
400 


4<eC 


4a 


440 


410 


460 


440 


51¢ 
52 


53€ 


bu TU 40C 
CAPLUL ¢aCOUNT) = CULIM) 
ll = G 


bu olv wNdye 

TcMP = 

4b = Sie] 

LAK = Cralld™ CrKiddoa 

CAL = Crit leloyecki(iei) 
AAR = SYKTILAKFLAL) 

Ir (AMP .NEe Ue) GU Tu «20 
AL = =2be0F *4U 

Ace = -1eGE*79 


bU TU 450 

CUNSTaAsT 6266569 = C6042 .904545 
AL = ALUGTAMF) * 8.66564 

AL c= ALs2C 6 

dr CER LOL) eNte Of) GU IL 440 

dr tenitirld) «Gl. Gd) TEM = GU. 
Ar UG UWRSUT OL) LT. OG) TEMP = Zt. 
bu TU 461G 

CiLR = ABSILCKI Carbo sen iad) 

TeMh = ATANICILK) * 5723 

ir (CR LELd eLT. Ood GLE tL 446 

LF (URL ciel tToCe)d) GU TU 4b0 


Xi = IeMr-206. 
Gu Tu bel 
AL = ~TcMP 


bu lu 52e€ 
Ir (Critditli el Tebed) GU TU 510 


SE @ ~TEMP = 160. 
GU TU Se 
AL = TeMr — itC. 
Ale = Ka 


TREMOSCALS Pe OLS LED) Xic=rAid + 3OU.5 
Cur = Cutlm) 
LCUPMAX = CUdLLD 


LALL FRNESV (SYM1 + S¥Mce SYM Se AMP yA yLOM pLOPMAX) 


IF ( MU eb&e UY § GU TU 55¢ 

VU 24 Jy = ly MY 

art atMbeltue) eNE. 1d ) GL Tu 5 
SAVAMIL (uN) = AMY 


& 
c 


SAVPritued = Al 
SVPMALIGe) = Ale 
ALYMityuGr = al 


bu TU £46 

lr t [CMee ctu) «NE. TI ) GU TU 540 
SaVAMetuw) = AMY 

SAVE Luu) = Al 

SVrrAct(uu) = Ale 

IeYMZiued = | 


LALLUALTE AND PRINT AMP, KEAL ANDO IMAG PAKTs 
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tT&e. FUK UNKNUWNS 


12/0 7/7 18 
ll.s5-0¢ 


OCzZil 


00230 
90231 
O0ese 
OC 253 
00234 
00255 
00246 
OC2sT7 
OCZ36 
00239 
002460 
OGe41 
Oud42 
00243 
CL 244 
OC245 
U02466 
OCeZat 
00246 
00244 
06250 
00251 
OC2oe 
00<53 
00254 
OUc55 
96256 
O0e57 
QUZ>e 
C0259 
0uzo0 
90261 
9CLoz 
002063 
OCZ04 


PALL 
%e 


SO SIT in 


PRAT? & WHITNEY AIRCRAFT DIVISIUN Vek 12/07/18 
CSG.PAN7T57 10.0 11.35.02 
540 CUNTINUE 0UZ05 
550 CONTINUE 00266 
c STOKE PLUT INFUKMATIUN FOK THE UNKNUWNS 0067 
Ir ( NOGUUL .Nte~. O } GO TU 606 00Zoe 
IF ¢ PLOT eNtE~ O » GU TU 606 06209 
DU 5oO ALPAK = Ly LPT 00270 
1PA = NUPAKMULPAK) 00271 
IF 6 Ad eke APA ) GU TU 576 OCZTz 
560 CUNTINUE 00273 
bU TU 600 OCel4 
570 AMPLUTCICUUNT»IPAR) = AMP 00215 
NAME L( LEAR» 1) = SYMLUIKA OC2Te 
NAMELCIPAR,2) = S¥Mc(aPaA ) OCzc77 
NAME LO LPAR,3) = SYMStLPA D OGz2/b 
NAMEZUIPAKs1) = ABL CO2ty 
Name 2(1PAKs2) = ABL o00zsc 
NAMe2(IPAK e935) = XbL Ovu2el 
59 PAPLUT(LCUUNT,APAK) = X1 OC2b«e 
PZRLUTCICUUNTsIFAK) = Kid O0ce3 
©0C CUNTINUE 00264 
610 CuNTINut 90265 
o2C CUNTINUL Of2bo 
Cn a a a a a nn a ee rn mn mn men on nn ee nn een nese nen—==- CC 287 
Cc GeNeKAT ec o1 4 Se TYPE UUTPUI 0026s 
G eee sess cas enee SS OS Se i SS SS SE, LEE SSS Se SS RW car SS Se Ned eee eons SEIN Se a ie OC2c69 
ir ( Mw ctw. O ) GL TU 660 04240 
bu 6t0 Jw = is MY 002%: 
JNy = vw + 160 ONes2 
AMPAMr = SAVAMI(UU) 4 SAVAMZ (UN) 90293 
ALGEO = -1-Ce+7C OC294 
Ir ( AMPAMP .NEw Gol ) OG2¥5 
LALGCO = ALUG(AMPAMF) * 6.60584 O0zc4o 
Fadil = SAVPHI(uW) - SAVPR2Z (uw) vocyT 
KLUAM = ~1L.CE*7E Cveys 
LF 4 AMPAMPh WNE® O6C ) OCeYy 
A1XLUAM = XiLG20 / Lue OCScc 
be ¢( FALZEL obte O) FAZEA = —360. + FAZEL 003v1 
FAdc2 = Fadel COBCe 
Ir ¢ ABSUFALEL) eGT. Louie) FALi:c = FALEL + 36C. 003uU3 
Ketu = AMVAMP * CUStFALEL / 576295! 003 U4 
XiMG = AMPAMP *® SAN(FALE1/S 37.2495) OuUsuU5 
ixM = iLymli uw) OC306 
InMe= ILYM2( we) OC3ul 
CALL PRNTK (SYM ag SVMS pSYMS gp AL YM Ly AL YM cy AMPAMP FALE] pLUP py LUPMAXK gy My 100308 
Cc SUUKE FLUFF LNFURMATAUN FUK 51 7 SZ TY Pt FeRMS 9C3u9 
ir ( NUGLUUL eNE. © Pb GO Tu oF 00310 
ir ¢( 1PLUT NEw’ OC ) GU TU E40 OvSii 
bu e3¢ iPae = is avi UU3le 
1¥A = NUPAKMUIPAR) 00313 
IF LIND ete APA PD GU IL O46 00344 
o5C CUNTINUE C315 
Gu Tu 670 CC3i6 
O60 AMPLUIT(ILUUNT» 1PAK) = AMPAMY 00317 
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PAGE 
93 


StkLAL 
Ozlcoy 


PRATT &€ WhlTNtY ALKCKAFT OlvISIUN 
CSG.FANTS? 


NAMeE lira ysl) 


SYM1lUakM) 


NaMElLOLPARs2) = SYMe(1LkKM) 
NAMt LI LPAKys) = SYMDCIKM) 
NaMe dl lrAK sl) = SYMLIAKMZ) 
NAME CUIPAR sc) = SYMcIIKME) 
NAMtcllPAK so) = SYMatakM2) 
PHRPLOUTCLLCOUNT»] FAR) = Fadel 
PEPLUTCALUUNT, 1 PAK) = FALLS 


6©7C CUNTINUEt 
oe CUNTAINUE 


c LUcTEKMINANT UUTPUl 

GC wececccen= SAE SE fe pee ee esa ae eae ae eae 
UL Ye5U yuFrlee 
XVAL = CETERM 
uP ( GQ cba 2 oe AVAL & DETEKM > 4 
vNJ = loo % 
KeAL OL = KeEAL ( XVAL ) 
CMPLUL = ALMAG 4 AVAL ) 
AMP = SURT ( KEALUT*#®c + UMPLUITE¥< 
Ir (hMP WNE. bed GL TU 4200 
AL = ~1.Gtr*/0 
Av2 = ~leverieu 
Gu Tu 45C¢ 

Cc CUNSTANI be6t509 = c£0e/ee50c565 

#206 BL = ALUGLAMPD) * 0.6UDEY 
ALe= AL/20. 

#300 Ir (KEALLT eNEo Of) GLE TU 440C 

JF ¢ CMPLOT oGT. OF TEMP = 96 
Ir ( UCMPLOT elLTe GU) Teme = tbe 
GU TO «700 


#400 CILK = 


AbBS(LMPLOT/KEALOI) 


TemMP = ATAN(LICK) * 5fe5 
IF (REALUT otle Co? Tu 49CU 
4OCC TF & CMRPLET ot TeO0) GU TU 4t0U 
“7U0 Xl = T&eMP-300. 
bu Il §.<0U 
4600 1 = -TEMPY 
GU TU 5<e°6 
4900 Ir & UCMPLDT oL1eU5.) GU IU 5)G69 
Al = =-TemP - 1i18C. 
bu WU S<eCC 
5160 Al = TEMP — i8C, 
5200 Ale = Kl 


dr ABS EK1L2).GT6A60) Xic=Kid + 3006 


Cc DETERMINANT 


Ir 
IF 


bu 
lPaA 


ir 


PLUL LNFURKMATIUN 
( NUGUUL «NE. C J) GUO Tu 5256 
( JRLUT eNEe GO ) GL TL 525 
©3060 LPAR = iygiaPT 

= NUPAKM(LPAR) 


( iA NES UN 2 GU IU 63500 


AMAPLUILCALUUNIslrARK) = AMP 
NAME LUIMAK 91) = XBL 


VEK 
10.9 


12/07/78 
sl -33e02 


003:i8 
CC314 
U03<0 
OC3cl 
OG3ced 
9003<3 
OC324 
90365 
00326 
OC3<c? 
O%5<6 
O03cy¥ 
00350 
6F341 
CC352 
00335 
00354 
00335 
00356 
C337 
OC3s6 
OC3s9 
Ovs40 
00341 
OCS42 
C0343 
00344 
90345 
UuUs4+6 
OC347 
00346 
UUS4e9 
90350 
090551 
OC352 
0393 
30354 
00355 
00356 
NO3Z 07 
00358 
003>9 
0C 360 
00361 
0030<¢ 
C0363 
00304 
Q0305 
00306 
GOC3c7 
00368 
003609 
00370 


PAGL 
94 


SEKIAL 
021269 


PRATT & WHITNEY ALRCRAFT OILVISLUN VER 
CSG.PAN7T5? 10.0 
NAMELVAIPARS2) = X6L 
NAME 1(1PARs3) = XLAB 
NAME Z(IPAK sl) = XbL 
NAME2Z(1PAK 92) = AbL 


NAME ZUIFAR,3) = XBL 
PrPLUT(ICUUNT,IPAR) = X1 
P2PLUTCICUUNT, I Pak) = X12 

6300 CONTINUt 

5250 CUNTINUE 
IF ( 4EKK CEQ. 1 ) GU TU 790 

690 CUNTINUt 
Ir ¢ LEETA 2EU. 1 2 GU TO 7475 


TOC iF « iuw .GE. 3 » GO TU 710 
log = low + 1 
GL TO <eO 

7lG Ir ( AFLEG wEQ. 1 ) GL TU 730 
IFLEG = 1 


lr ¢ ISVLL EU. O ) GU TU 730 
Ov 426 2 = de LSVeL 
720 CUt1Z) = SAVCUL12Z) 
Le = ASWELL 
CUPMAX = CUCISVLL) 
GU TO «00 


730 CUNTINUE 
IF «4 BTDEL -EW. Of ) GU TU 7506 
1bETA = 1 
NGGOUL = NOGUUL 
NUGLUL = 1 
ll =1 
ke = AbS(tt BIMAX — BIMiN ) / BIODEL ) + 1.001 
OU 7300 L=lyle 
73% Cutid = ¢ BTIMIN * (1-1) * BlUEL ) / 0.26316 


bu TO <o0 
7445 NUGUUL = NGGLUL 


75CO0 CONTINUE 

C ana a = a ee es + ee ee +e + 
c GeNeRaTe CALCUMP PLUTS 

Ca a en ow ee a eo oa nn eee 2 ow oo ee 


IF (NUGUUL .NE~’ ©) GU Tu 79 
AF ¢ LRPLUT eNte O ) LCUUNT = 200 
OG 7e8C I = ly» IPT 
ce | 
DU 770) v = Ly LCUUNT 
CY(y) = CXPLUT( yu) 
AX(J) = AMPLOT( Je) 
Ir (PrASUr (1) «EW. OP GU TO 750 
PX(ub = P2PLUT( 91) 
bu TU Teo 
T5C PACS) = PHPLOT( 491) 
Tec CUNTINUE 
77 CONTINUE 


CALL PLUTGIL Te PAgAXe LLUUNT  FREGUP (1 Dy FRUFAC( LD» PHASLPIL Dy, 
1 AMPUF UIT)» AMPFACIIT) + lGy YMENGA) » YMACKS(L)5 LNUKM(L) ) 
183 
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00371 
OC372 
00373 
00374 
00375 
OU376 
00377 
0C378 
00374 
0U3s60 
CCsbi 
06362 
00363 
00304 
OO385 
OCste 
00367 
00368 
OU3cy 
66390 
Oc3y41 
003%2 
00343 
OC3¥4 
00395 
60340 
00397 
OC398 
OC3sy 
CusUG 
Oc4se1 
O04U2 
290403 
00404 
OC4C5 
OC4lo 
C47 
090408 
0040S 
90410 
0¢411 
OC4ic 
00413 
OC41i4 
O04:5 
OF416 
OC417 
OL4isb 
OC4ly 
OC4<0 
O0C4el 
OC422 
00423 


PAGE 
95 


SEKIAL 
021269 


, PRATT & wWhilNEY ALRUCKAFT ULVISIUN VER I2/07/ (& PAGE SEKAAL 
CSG-hKANI57T 1Ge% 1L.3260¢ 96 Cclzoy 
760 CONTINUt CO4Z4 
790 CUNTINUE OU425 
td = C 004.6 
IPLuT = O OC4eT 
1LOW T=¢ OC426 
810 KETUKN O%429 
20) FURKMAT ( 7F10.0) 90450 
Z21LGC FURMAT (T3209 "MAGNITUCc =", F1G 04, 5Xe* BETA 2p FIO64) 0451 
S9CU FURMAT (135 lly OX» Trlb.eu CO432 
3333 FURMAT « 5F10.0) 00443 
2341 FURMAT (7 TLC, LOU**#* by F¥UU HAVE EXCEEDED THE MAXIMUM ALLUWAKLE "00454 
dy *"NUMGER UF UMEGAS - PRULKAM wiItL ck TERMLNATLD*» / ) CO455 
2020 FURMAT (T5y" YUU HAVE EXCEL UED MAXIMUM NUse UF CASES ALLUWED, / 904356 
i T1Gy*hROGKAM wilt bE TEKMINATED® D OC4sT 


tNO 00458 


AD-A065 774 PRATT AND WHITNEY AIRCRAFT GROUP WEST PALM BEACH FL G--FTC F/G 21/2 
LO-FREQUENCY AUGMENTOR INSTABILITY INVESTIGATION COMPUTER PROGR==ETC(U) 
DEC 76 PL RUSSELL+ 6 BRANTs R ERNST F33615-76=C=-2024 

UNCLASSIFIED AFAPL=TR-76-835 NL 


a 


PRAIT & wrlINeY ALKCRAFT UsvislUN VER 
CSG.PAN757 10.0 
c VATA SET BZBUStTUP AT LEVEL OOL AS UF 12/07/76 £33 


SUBROUTINE SETUPLINOE A, 4 PASS) 

REAL LSU ok SH MOL ep MOMs LA GLB ey LL pLrteL] pi Keil eMOR 

CUMMON /CINPT/FriwePESK oe PS eo TES, UFUELs VAeT Ad Xr es TAUSALPMAG FAK 
XeALe ER Se CDF pF AKMb gp LST KMeWEAT TEXT 

CUMMUN /AUGIN/ JFUEL] »NAUGUP »NCUMUP 9 NF SUP sNPRNTR 9p NPRKNUP 
LUMMUN /FLAMIN/ ALPHAL (100) sALHHAH( 100) sFAL( 100) es FAN( 100), 
* Frin€ (100) grrr (140 by LSU0 100) pL Smt 100 PeNSC (106) yNSH1160)% 
* PFSKIE 100), TAULLLOC) pTAUMI LUG) p TEATI (200) op TESRA1100) pTOL(1OO), 
* Fort 200) p WEXTI (LUC) e ALU (100) ALM 100 do NTL NTN 

CUMMUN /RMDLIN/ BRK OFC Sp OPD pDPryDPMS»pDPSeEPSCeEPSHeETAL ep cCTACst tan, 
* FAgFAVeLA gL Bell pittgl Leite lh Ze MOL pMorys MONS PRNGL ph SOy 1 3H ZEFy LEFCe 
* Lebey ZeFe LEP yg LEPC pZe Prin LETC pZt Trig LE WE pZEViny TUUKE 

LUMMUN /OTPUT/ MDUTArMOUTF pMOSFLO,MUTFVOsDETAlLs bd yDL I>) pbliads 
ATLF US) eMUTFL KL PSL yg TLEEXs 635 Tw, tTaFn 
ApVULUI5) ebb Ey OMUTUs BUL 9K TV 0 pUUUUT Us Y pSLU SEP SO pg VUg Xp EPSXOGETAG 
Ae ST ALCAGG) gEPSK10 190) eST1L4100) gETAC LOO) gNSTEP» TAEFF 

CUMMUN SMISE/ RAUASMUA,ADUCT Pl sLULsFHWIMP eb 1 Ie KMe Tr Cy,OcF IS) 
ApDETAC ID) gETAWeMOTFLA p TL ep MOU TFL( 5) oF AKWe STAR Oe FARE 

CUMMUN SLR VSS CRVMUAL 44) pC RVKM (44) 9 CR VLAN (2c) pCKVEV 124) 
Ae CRVSL 136) pLRVER (30 )2 IK UP 6285) 9LKVTSLI2Z0) 
AgCKVCK VIZ6 De CKVPTAUZ0) pCRVP TRA 24) pCKVSLE(LO) sCRKVEVE( LOdeURVISP(1LO) 
G = 3262 

wak = 0.0 

PS=PSO 

srork = vrberl 

PFSK=PFSRKACANUVEX) 

PE SREtFSKI CA NGEX) 

CUFH=l ec 

Ir CASTRKM .GT. Gi GU TU 14GuU 

FHW=FrmWlCLNUEX) 

TA=TOL CINUEK) 

AF=LOLAANDEAD 

TaU=TAUC LANDER) 

ALPHA=ALPHAC (INCEX) 

FAK=FACULNUEX) 

ALEALCUINUEA) 

EPS=EPSL 

FAKMb=C. 

WEXT=WEATLOULNUEAD 

TEATHTEXTI (ANDER) 

LALL GASTADI Us TAgFAKek pWAR) 

CALL GALSTAD 509 TA gr AK pO AMA WARK) 

VA = SWHTI(GAMA * K *(TAt4O000) * GP ® MOL 

Gu tu “ave 

LUC FHWw=rriWh ta Nvex) 

Ta=Tontinveard 

AF=LSHUINCEA)D 

TAU=TAUMLANUEA) 

ALPHA=ALPHAN(INUEAD 

FAK=FAMULNUEX) 

AXLEXLHCINUDEAD 

EPS=Er Sn 
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12/04/78 PaGe ScRKAAL 
11.33.62 97 G21264 


Ovoel 
OC0C. 
000Ccs 
000% 4s 
000c5 
0G0v6 
occo7 
0G0U8 
000uU9 
00010 
00011 
00012 
00013 
00014 
000i5 
Ovubio 
60017 
OCO1s 
OG0i9 
000<0 
9CCecL 
OCCcz 
0vuG<23 
OC0Oc4 
006<5 
000<o ) 
00CcT 
00028 
ovecy 
00050 
OU0s1 
OU0s< 
C6055 
OCC 34 
006035 
uC030 
C0057 
OuUGs6 
O9CSy 
CCC40 
Gvesl 
OC Ose 
OL043 
00044 
OC 04> 
0040 
oces7 
COC4& 
CO044 
ocgsu 
CO, 
OF05¢é 


PRAYT & wht NtY ALKUKAFT LIVISAUN 
CSG.rANT57 


rARMB=raV 

weXb=werxTl (ANVEX) 

TEXTS LEXTibaNvuer) 

LALL GASTABL ICs TAp FAN em pwAK) 

CALL GASTAB( 36, TA grARy GAMA gWAK) 

VA = SURTIGAMA *k * (1A + 400.) * Gd * Mort 
GU TU hUCO, 500 2400 95CL OU) pA PASS 

VA = VA * oF 

b6U Tu 1006 

PS = rS * 1.01 

GU TU 1L0C 
FAR FAR ® 
bu Tu 1006 
TA 1.Cl * (TA + 400.) 
KE TURN 

END 


oY 


- 400. 
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SERKAAL 
CLéicoy 


Ven 
10.6 


000.3 
C0054 
90055 
CCUse6 
00057 
000s6 
v005y 
00Co0 
00601 
OUCod 
00063 
CCOo4s 
00005 
OGOo6 
60007 
OGGoK 


186 


PRATT & whlTNrY ALRLKAFT DIVISIUN VER 12/01/16 PAGE SeKIAL 
CSG-PAN757 10.0 11-33.02 99 Ozl2zoy 
c VATA SET BZBUSLVETA AT LEVEL OOL AS UF 12/07/76 E33 
SUBKUUTING SLVETAIKU) ocool 
KOAL MOUTA pMOLTE »MOTFLU,MUTFVC pMDTELL pMUTFL»MUUTFL 000062 
Aenl 00003 
CUMAUN /CANP TS Fring PrShePSsTRSKeurUtLs VAsTAs Abs TAUSALPHASFAR 000C4 
AeAL eer SeLUPM eFAKMbD ep LSTRMeWEAT eT EAl OcoL.s 
CUMMON /UTPUT/ MUUTAMULTF pHUTFLOsMOTEVO, BETAL) bZ9DL 15) B15 dy 090 C6 
ATLE UD) pMUTFL eA L ePSLeTLFEXe bos IWy cTarn QCcout 
Ae ULUID) ble» UMDTO, KUL pRIVO pUWUUTUr Ve SLUsEPSO ep VUgXCetEPSXO et TAG 00006 
Ae ST eALELVOD pEPSKLCIOC) pSELELLOD) pe TAG LOC) pNSTEP ys TAEFF ovouy 
LUMMUN SMLSL/ ROA SMUAPADUL 1p Pl pLUL oF re TAP pO1L Ee KM eo TrO,OLri5)d 00010 
Ae DE VALID gel AmeMOUF EL eo TEL pMUUIF LID) oF AnW, STBAK eS FAKE ocoil 
CUMAUN /CRVS/S CRVMUAL 4S D pL R VAM Go pK VLAM (22) 9 CKVPVI24) O00.id 
Rec K VSL (50) pLRVPK (od, TKUhS (203) eLKVTSLI2Z0) ocols 
Ag CKVE TIO De CKVE TI 20) pC RVP TK cH de CRVSLE(LO De CRVEVP( LOD eLKVTSPIL6) OUOI4 
UVIMENSIUN TwWi4ids rAnKWnislds FAaKwbI 2G), Two 20), 00015 
x TAB3 144%) pb 3Wb1<0) 00Gi0o 
LUMMUN /TABS TALI OOD se TADLI44) 000,17 
LATE RKNAL FATMe lL eFATMPe 0C0.8 
RU eu 00019 
Iv = 6 0u0<0 
IvKIT = & 00024 \ 
JONT = & 00622 
LA = .CMao 00023 
Fann = Ce 00C <4 
yeENU = U 00025 
TAERR = CO TEAL * WeATY * TA 7 the # wert? C0626 
WOT = the * Weald * Hdd 00627 
1G CALE WARE (RQUTFILD God. 
OF: = UTFa * 1686 o0ucy 
lr (KR seule G)GU Tu ¥ 09030 
arPuaCNT «bt. 4096u TU 7 06051 
AUNT = LENT#E 00052 
TawtiCNt) = tacer © Ohi * claw O0COs3 
rARWWULUNT) = FaRw 00034 
c WRAL CL Oe SED AG IENT HACK eUIFL ot LAW, (WL ACNT) prARWWACNT) 00055 
God FURMAT (cL 5p 5ELS edd 00030 
uu fv 6 QCOs7 
S LFUACNT 26Te Udbu Te & OCCs8 
© FaAkw = FaAKW © OA Ov0sy 
Re C¢ 00040 i 
LPOLENL tue LIGU Te 7% OUGss 
ws 10 1¢ 00042 
b&b rakw = ramw = .uQ05 90043 
leno * i 000 +4 
a +6 OCOsS 
bu Ww 1C 00046 
7 Iw = ithyu GUG67 
vA = 20¢ 0v048 
Wu 20 421969 Q0044 
LALL otlAs 00610 
rAkwbotL) = FAK ® (oe lal © tiemve TAL) © 52 © bS/KL)D 00051 


Tweils = Tw OOC oe 


PRATT & whiINcY ALKURAFT ULVISIUN VER 
CSG.PAN/I57 14,0 


30 


40 


4 


m1 


lr(a etwe 1LdGO TO le 
dr (raAkwhUL) — FAKWo( ALD Ligaleld 
LP CLVI Sse lozad 


Iv = 1 

EVRY = 2 = 2 

CUNT ANut 

WRITE COs 997 AsFAK a DETAL bd pO3eK1 ye TWetAKweh ll) 


FURMAI (159 ft id 0%) 


CUNT 1 NUE 

FURMATILS»s 4Fl2e4? 

CU cd 1 = legacntT 

WKLTE (Oe999) 1, FARKWWhlLds Twwtlds FARWbOIL ds Twotl) 
Tablitd) = Le 

TAoLIe) = Se 

TAbilss = FLUATUALNTD 

Tabli4) = 0.C 

bu 30 1=lyICNT 

Tabl(i + 4) = FAKWWIL) 


Taslti + 4 * ACNT) = twwhl)d 
TABSIL) = Le 
Tac3si2) = 3. 
TAbsis) = 206 
TABS(4) = Of 


00 #C 1 = 1920 

TAB3ZC144) = Twetld 

VABSL1Lee4) = BSwbil) 

NN = 20 

AFCLVKT eG1e CONN = LVKI 
TAb2Z(1) = le 

TaAbBLI2) = 36 

TAbet(3) = FLUATINN) 

TABci4) = Oe 

OU #2 I = 1,NN 

TAb<il + 4) = FAKwotl) 
TABZIL+4*NN) = IWwotd) 

IrtivkT .L&. 0960 Tu 41 

X = Fakwo(Ivkt) 

CALL UNBARITABL», Le Ap Us Veo AS) 
IrFtIS .GT. GO) GU TU 41 

yh = ¥2 

LFUYS eGte TWHCAVKTD) GU TU 7C 
Ky = 0 

X = FARWWUACNT) 

LALL UNDAKITABD]L ol eAsOorVLigiS) 
CALL UNBAK(TABZ gle AsGeeViZeis)d 
IrtY¥eéd eLT. YLLIGU TU 60 

AcL ® FAKwwth) 

AK = FAKWB INN) 

LALL KEGULA FAL Lg AR oFATMP] pFATMP SZ phup AVL g ith) 
IFtitk 2GT. GiIGU TU 6u 

Tw = Yl 
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00053 
00024 
00055 
OCS 
00cs7 
OCO>56 
OCC59 
0000 
ecco. 
Gude, 
06063 
OOGo04% 
00065 
OCCo6 
O0Co? 
00068 
90004 
OC07G 
oco/l 
vsdl2 
occ73 
Ocols 
00075 
9°CT6 
occ 
G0C78& 
CoGty 
GOC00 
00001 
0002 
00083 
CoCts 
UU055 
OCCb&e 
Ouds7 
O0C0sb 
CCOLY 
060490 
oceyl 
OCOx2 
60093 
000% 
20045 
60C¥6 
OCGs7 
vourvs 
00Ovy 
00100 
Oolcl 
00102 
06103 
CC1lv4 
60105 


PaGe 
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Stmlar 
Ozlzeyv 
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CSG -PaN757 10.0 11.53.02 101 021264 
' 
FARW = X 00100 
Cc CUKVE iS Tre SAME FUR oP4 AND urd 001C7 
CALL UNBAR (TRIPS, LpFARW, TAy OTFLy IS) 00108 
ETAW = (TW-TAD/0TF1 00109 
CALL UNBARITAB3, Ly TwWy Oo bSe 1S) 06110 
Gu TU 80 OOlaL 
C 60 WKITE (07101) 06112 
C 101 FORMAT (* WAKE TEMPEKATUKE ITERATION FAULED®) 00113 
60 KU = 1 00114 
80 Re TURN OC11> 
ENO 00116 


' 
| 
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PRATT & whltNcY ALKURAFT DiAVISiuUN VeK 12/07/76 PAGE Stwaai 
CSG.PANT5/ 16.0 11.35e62 10< Celéoy 
c DATA SET BZBUSULBAN AT LEVEL OOl AS UF 1¢c/07/70 £33 
c VATA SE] B8455SULBKAN AT LeVck O01 AS UF 1c/22/77 oouck 1 
Cc SULDAN ococeé { 
SUBRULTANGE SULBAN INP eNb aN ep bANU pb ey XX ) 00003 
CUMPLEX*®16 BAND 000c4 } 
CUMPLEA Bai KA OcOuU5 | 
CUMPLEAFILO A 00006 
CUMPLEX ULE TEKM OvorT 
CUMPLCEX* 16 S_b60,0F ococs | 
ULMENSIUN BANU(L) pbULI PALI SDy AXCL) Ou0”W9 \ 
CLUMMUN /UTRM/ KMAG, bIMINs DIMAX, bIDtEL», ODETEKMs, ABETA OGu10 ‘ 
Cc BANU MATRIX SULUTIUN 000.1 4 
c SULVANG Trt OcLUMPUSED bANL MATKAX, GAVEN A CULUMN VELTUK be 90042 
c THE De LuMPUSEU bDANUD MATRIA iS UBTAINEU FRKUM SUBKULTINGE 6MAT AND 5100013 | 
Cc IN AKRKAY BAND. 90014 ; 
c thal aS, SULVe (LUX = Db FUR Ape FUK A GIVEN be Ov0lo. 
c VAR aAucLe VILTIUNAKY FUK AKGUMENT LIST Oco16 j 
c NP = NUe Ur SUPEKUITAGUNALS IN BANU MATKIA OUCiT ‘ 
c No = NUse UF SUBUIAGUNALS iN BAND MATKIA 00016 
Cc NK = NUe UF Kuws IN BAND MA1TK4AX Ov0.9 { 
c BANU(LI= ARRAY CUNTALNING Tmé UcCUMPUSEU DAND ELEMENTS. 000<0 ‘ 
c BULL) = COLUMN VELTUR AN MATRIX EWUATLUN (bANU) X = b eco) \ 
c AIT) = SOLUTIUN VECTOR FUR ABLVE MENT AUNED MATKIX EWUATION. 00022 
NU = NF * Nb + 1 Ov0e3 
NeEL= NL * NK 000c4 
c CALLULATE UrcTeRMINANT Ur MATRIA 0v0¢> | 
UcTcKM = le 060co 
bu icceC l=ly Nw 00027 
1016 = No*l * Ci-ld) * ( Ne erbel) GvUG28 
10CC OeleKM = VETCKM * BANU( 1016) OC0cy¥ 
c SULVING FUR X IN AX = B 00030 
c bANL MATKAX A LS VELUMPUSED INTL LU 0003) 
c TreKEFUKE «kh * U) X= © 000s<¢ ‘ 
c CALL UX = dy IrteN LL = Bb 0u053 | 
c NUTe = OVE TU Trt ANALYTALAL PRULEUVURE, IT 1S NUT NECESSARY TU mai0C0s4 
c SePARALE STUKAGE LULATAUNS FUR ARRAYS XK ANU Ze FOR FALM cuWmu0ss 
c IN WHALH A HAS BEEN SUBSTLTUTEU FUR 2, A CUMMENT CARD PKELEOU0>50 
Cc Tre EWUATALN AND CUNTAINS Trt ACTUAL ANALYFICAL EWUATIUN. 6060357 
Cc SULVING LUWEK TRIANGULAR FURM Uceo FOR GIVEN 6. OGG 58 
c 4t2.) = btld cro3y 
Xilo = bobd 00040 
If = Nb * 1 * N& 00041 
bu 500 Ke2_yNK 00042 
S$ = BIRD 0vu04«3 
VU #00 421 Nb 0044 
dr CtRmad hese Cd GL IU 450 60045 
BOD = BANO(LO-1) 0046 
c vue = dint) 00047 
OP = A(K-1) 00046 
S$ # 3% - 60 * OP OUC4Yy 
400 CUNTANUL 00050 
@#5C lv = 104 Mw 00041 
Cc ziKpe : 00052 
: j 
H | 
| 
J isn 
"1 one 190 
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PRATT & WHATNEY ALRCKAFT OLVISIUN VER 


CSG.PAN757 10.0 
xtnp = S 
SOC WANTINUE 
Cc SULVING UPPER TRIANGULAR FURKM UA = 2 FUR THE AbUVE Le 
c AUNK) & ZONK) 7 BANUINEL-NP) 


600 
650 


700 
600 


XUNK) = XONRD 7 BANDINEL-NP) 
KK = WK-]) 

AR = AK 

DU 700 KAKEL SKA 

10 = KRENC —NP 

S = 2tKn) 

S = Xt(nK) 

Ou 000 i=) NP 

ar ( NP ocQ. 0 ) GLU Tu 000 
Ir GtnRels 2GTe WRI GU TU 650 
BD = GANDI10e1) 

Or = Kinnel)d 

$= $ - 60 * OP 

CUNT INUe 

oC = bANDI10) 

XtKR) = 9760 

KKE KK=1 

CUNTI NUE 

OU bOU 1] Nk 

RAGA) = XO) 

Ke TUKN 

ENO 


191 
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412352062 


00053 
00054 
00055 
00056 
o00s7 
0v058 
00059 
00060 
00061 
00002 
00003 
OcCes 
GCOod 
Ove 
000.7 
00068 
CCCoy 
60010 
ooo/ 
OOC tz 
00073 
00074 
oco7s 
00076 
eoc«t 
0007s 
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PRATT & whlTNEY ALKCRAFT UlvIsluUN VeK 12/07/78 Pabe SERAAL 
CSG.PAN757 10.0 411.35202 104 021269 
c LATA SET Bé<BOTEMKIS aT LeveL OO1 Ad UF lec/OT/T6 £33 
Cc DATA Sel C75UTEMKis AT LEVEL 001 AS UF 07/13/76 0coul 
SUBKUUTINE TEMKLS (TEMP, FAy PPSL, DELT, XLV) OUCL. 
C TRISE GENERAL TEMPERATUKE KISE PRUGKAM DELK 6045 9COGS | 
C MUCIFIEL 1 2SEP77 TU EXTRAPULATE TO INLET TEMPEKATURES LESS OCGL4 | 
C TRAN 406 UtG KANKINE & 10 PRINT ERRUK MESSAGE 00005 
LLMENSIUN CRVI4160) KCC SD yPAL Sde V2) OULG6 
VATA PA e333 ele ede 3359 lUo eg ZUe/ OuC07 
DATA KC/1 9629159241953 e/ ONO 
EWUAVALENCE (URVELDSCRVLLLILI Dp (CKVIB cd gCRVOlL cil dry (URVELSB)D 90009 
Le CRVOLS¢L DD cI CRKVI 241 DpCRVUL4Si 1d) p(CRVE332) eCKVOLD(1 DD 060:1C | 
DIMENSION CVO11«I7o) oCCaL ] 
EWUIVALENCE (LRVOLILE 1), CvGLlléi lad OCOiz 
OLMENSION CVO13(70) 000.13 
EQUIVALENCE (CKVOI13¢ iby CVELS¢ LdD 00014 
ULMENSIUN CVO14G( 70) 96C1»> 
EWUIVALENCE (CRVOIGE Lbs CVOL4t Loo OCO16o 
OLMENSIUN CVO1L5S( 76) 0v0i17 i 
EWUIVALCNCE (EKVOL5E 2), CVOLSE LdD)D OUOls { 
c PZt CRVIL DE-33900 TEMP KiSc=rir/Ay 11d) PO=6553 Sete=Ue yvr50001y9 
OLMENSIUN CKVOLL( &2) oco2zu 
VATA CVOl]l 7/ 4n + 4h 9 Ve VVVIVVVE—O ds GebYYYN9VGE-O1 90021 ' 
Xp Ge4VOCOUOUE 034 UsZlFFYY9YE U4s 0.2999999YE-U]y UeGCOCOOOCE G1 OUCeZ \ 


Ky VeBCCCOOGGE O29 Oe L5999994E Lie ColslilslOE—Cey—Ooleeeeeeee O1 0(0c5 
K-00 lL 5B S46 ZOE Ob eUeS UY S9UTYE Udy 004 174365 1tE-00 »-O. 7TO9H137TIE OL COOLS 
Ay OeSSTLODZOE“UU pO 44a cSOSLE Cog-O65 90 03ST DE Ol y-O.550c9952ce VI 900c5 
Ke DeO4Gyetooe O2% CoTeeUSsObtE O03 9-O.9N1UV94UDE Ule-9-22Z6Z7o41t OL O00.Lo 
Ay Ge205L419OE Oe e-GelZedoSc4ue O5_ Gel lOOTHOst O%, Deol¥Y¥y¥vytE—O1L OOCL7 
Aye GedVOGOUGOE Ol, OCeOcHy¥9YGYE Oc e-Co2d7T4y¥99vE Cly OoLLIIIAIGE-Ge OLO<cb 
Ken O oe lL 444G44se Oly OeslSOK2O5E Ole Dol 1445is6t Cee Vod¥so92Tbt V1 OYUbcy 
Ke Ol OGL7355t Oey Coc sOvseolt Usy-OedSL4lOLOe Oey Ol S86L2297E Ve GOC50 
Ky Cede des 50ck Oe p-UeGGOcddaCt Veg-UslaeselO2k Us, Ooc7T954H0K8t VI OOS: 
Ke Gell S2Z2OSe Oda Ce Zoo UAT ECE Vee —Ve2aUS552TLE O59 De59/0O444Et 05 OCODE 
Xe OolZssOlook Gly-O-.sFaHOO4erte OCig—CoLD9CLB42e Cee —One5cTOSLst OL 00055 ‘ 
KerC os 1 VOD B4E O59 Ce d4¥l T4OlLE V4e O68 xF994¥OE-91y De.5000GGO0E O01 O60L4 
Ke Col bcBOTOE Od e-Uededorsisct Uly Gel LALA LOE-O29-OelGeneeeGt O1 C005 
Ke~UVe3TOYSL SOE Oly bes db seedot Gey O69 5605040e Gly O-357ICLI6cE OL GuUCs6 
ReA~OeST29LIBEL Uce Veb4HS0o0d lc Gh y-ColL UVOLOOCSe Vey O09O135033r OL 00057 
Ay OoF>OAEIISZE Vee eb cd4dcUTE USy VUsscOd510GE Dig -OecodioyoOt OL 00058 
Ke~ CoS SHC 1 LZBSE Oly Met ocierert Ocy-Ge¥yysysbTt Vly O-77Z261013t OU ODOUsy 


x/ 00040 
OLMENSIUN COWL 5) 00041 
EWUAVALENCEICRVCLAC fd eCOClILDD 0vu042 
DATA COO] / “Gel G525e4 Oly 06851399935c O1y-O.37314O44E OL COOH3 

Re~O.SYLZESICYE O35 CoSsUHUGLOIE VG 00044 

x/ 00045 

Cc PLE CRV1l< DF=35960 TEMP KIStE=FIF/A, Tic) PO=1.0 Sette =0. JPSOCOs6 
UIMENSIUN CKVELZI Te) 00047 
OATA CKVOlZ / 4H » 4A 9 O64 99VII9GE—Ues Ueb999Y9IVFKE—C1L OCO48 


Ay Ue4#OOUQUOUE O35 Yess 99VV94E OH, Oo29999YYYE—O1l, 04.30000000c OL GLO4y 
Ke CoBOUCGOOOE Ue e-Ue lL S99 FYFE Uhy OolLALILI1LOE“02 5-0. 14444444 C1 10050 
Ke UsolBOESG9LE Oay Oo255¥H0Oc0t Cly-OeG I37IT LSE Od 9-0 .30955/63t OL VOOSI 
Ken Oe T5557 beet Ody CoP L3a5TCKE O59 O61 2538243t Ul, 0695497100E 01 00052 


192 ' 


Ae ~Ooldcy235e7t 
Ae Oe02499999E 
Keb e5 57948 THE 
Ay ColS4oe705& 
Ke7Ue D1 59Z1 SUE 
Keb 403594 coe 
Ae~U 006 45006c E 
Xo Oe2bl55o034¥e 
RerO5ezeos1set 
Kew~Gelsllte2oet 
Ky O.3 a51i4ecl 
Apw~Ceo lS eolesye 
Ay Gell Se5ee7e 
Ky 06615575 b0cE 
xs 

eZe UKVLS 


OF -s5466 
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O35 GeliOcBadve 
Ode -Oe2oT+999FE 
OG, O613179248e 
029-0 o 200461 Mat 
025-0.1 26202 11E 
CZe-OnLo2syO5oe 
Cly-OolTo47ecse 


O4s Ged Y9Y999DE—Ols 


Céo 0.217860886t 
O29 02615233 642t 
O35, G.2005587SE 
Coe Co65744488E 
69-062 4923525 50t 
0-5 000000 *t 


Ole Ooill ali lVe—Od 9-U0l4444e4er 


Oce Qelélycv37e 
O29-G.1 4750504 
O59 Ue506810C0r 
O39 -O24500320% 
Ole 042250UC5E 


DAMENSIUN CKVO1s( 65) 


CATA evbis £ 
Re Ge4N00G00UE 
Ae Ge 8UCLCCOOr 
Xe Os2Z2200095E 
Ker Co TST Beale 
Ae-Col ZZedysle 
Xe Ge62499999E 


Ke Co%cbvboodoE-00, 


Ay Gelo7ys30%e 
Ke~OedVTIGYSSE 
Ag~Cowesosc ict 
Ka~O oD (VO9O14SE 
Ay Ced>asCTo5CE 
Ae Codeco5/ lst 
Ay VedSO3Z5750E 
Ke Ged SboSeyse 
Ay LeTo4#dsoeiE 
Ry FePobo64se 
Aen~Col (aT I4 vt 
xs 


on 9 4h 

O59 OeZs999999E 
Che Oe A S99 99O4E 
Uls O6407cO461E 
02s O67 23c5957e 
Ose OoL1Oc54evt 
029-0 25749994 
O-LolLS400%r 
01 yp -O0 26603 (04e 
Ode OelvcsGyzve 
Ode -U eo L45YO704E 
Oly-G2 L035 2O205E 


(EMP KiSt=hir/a, TT) 


Oey 004 5900Z214E 
Ode Co22450874t 
Oie-Ge8O5158632E 
Od, Gol 524d450E 
069-005 4747 444E 


9 O649999999E—U2, 


U19-064635035929e 


CL9-0-8 7292 736r 
Ody Ool LocObooc 
Use OocoOuoyzze 
O39 026 75302650E 
Dev -CoLEbI9e dle 


CHs CoB899YYYSEE“Ols CoS 4OWIUSSE 
Cle Gelll sil lOE—Od 9-0 44444 4uE 


O29-G.3054o320e 
Ole F0454925446¢ 
V2 9 -UssOSY LYNE 
929-01 66435 lot 
04 9-4. 550 focolt 


LIMENSIUN COCE( a) 


CWUIVALENLCE(CKVOLS( 


LATA Llbe / 


0.045 (5340t 


029-003 15482 Lot 
Ghee Go4UTO2997E 
UL e—Col 19044 20E 
Os Nee dcyTieye 
Od, OolotIS4zit 


TT) pLUCctLldd 


OG, O629177525t 


Aep~OGeOSccOlL bak Ve e4ObY21I9LE Cd 9-064 4205007E 


x/ 
PLe URVIG 


CAMENSAUN CRVUL4SE 9A) 


VATA LCVCie £ 
Ay Ge4O0CC CUE 
Ay CsbUCOLLOVE 
Ky Cac Toes ort 
Ag~Ge le O>64Glt 
Ay-Oe ke Setieoe 
Ay CeO e499 9FE 
Agm~belos7lysbut 
Rer~Us¥Ooee tet 


4h , 4n 
Os9 edi 9o9reSe 
Oe “Ue hb s999 994 
Gar 90529 labo 
Gee Col Zobld7vt 
Osy we bsOesvose 
Carne of 499ore 
Ode GeO4O9S5560E 
Cle~Oscsd07/02t 


UF=s54¥00 TEMP KiSE=FIR/A, ITZ) PO=10.0 


Oi gO 5 4o220645t 


VeK 12/07/78 
10.0 11.33.02 
O42 Ob 1lY¥¥V9Y9IFE-OC1l, 0-50000000F 01 00053 
Ghe OolLLILILOE—O29-0.1444444er O01 00054 
Cl, O.161963547E OL 00655 
OZ: O-193e7T9¥d7E Oc 90056 
Oly O.64445020t OL 00057 
G39 0450515026 O01 00056 
O29O-32Z20lo4Zt 03 000549 
Oly 0.672428570t O02 GL000 
Ole-O.1LS7O9080E Vc LOCO 
C29-O.S87TBIZIOE 92 OFOLe 
O01; 0.95364440t 02 00003 
U19-O0-51047647t U2 OUU04 
Giy-0221168501t-00 00065 
C35 Oo31217430t U4 D6000 
O0C067 
PC=3.333 Sette=0. JPDUC068 
00009 
0.59999998E-C1l OCOTO 
04, Oo2¥o¥¥¥¥vE—“Oly O-3000000CE OL OOCT1L 
Oly OcLALLIAIOE-O< pO. L44444eee O1 OOOT2 
O<e-O-14957S860E O1 00073 
GOs_ O.lLUSZ5011¢—-O0y O-1L054b601lie V2 O0074 
Ow, Oo6 lLYVIV¥Y¥VE—G1ly O.50060C00E 91 90075 
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OIMENSIUN COG4( 9) 00146 | 
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DATA ULOle ¢ —CelblosT 4st Use Ge2cb237TZTE ULeUeddGl9I3ZZE CU UCl4s 
Re CeLScTLYITE Oly Ves sO4e(S9E—U' p—OeG VLE BS9E O1y—Coss2U0Ss94e OL OCl+y 
Ky-UoGi lovl sl O5y On5cToord5/e O4 Ovlsd 
xs 0151 
PeSr = PPSI *® 144.0 COide | 
P = PESF /21i6ecle 00153 { 
T = TeMP O001D>4 
Fr = FA OU1L55 
DU 5D KREeed 0G1>6 { 
TF(P eles. PAIKIIGL TU LeU 00157 | 
5 CUNTINUE OOl>s8 


4 
A 


ee 


ee 


PRATT & WHLTNEY AIRCRAFT OLVISIUN VEK 12/07/78 PAGE SERIAL 


CSG.PAN757? 10.0 11.33.02 2107 021269 
K = 5 00159 
140 F = F * XLAV ¢ 18500.0 00100 
00 220 1 = le2 00lel 
KL=R el -2 00162 
KK = KC(RL) 06103 
YO) = PVAL (CRVIKKDs Fe Te 29 16) 00104 
le (1E.NE.1) GO TU 220 00165 
Yol) = VOL) * F 74 2005 00106 
220 CONTINUE OCle? 
DELTE(YAZD—VOULD D# CC PHPACK—LIIZ(PAURIMPACK-LIDD * YOR) 00166 
C EXTRAPULATION TU INLET TEMPERATUKES LESS THAN 400 DEG RANKINE 00169 
LF(TEMP wLTs 400. )DELT = VELT*(1.-1.446-44( TEMP-400.)) 00170 
C ERRUK MESSAGE oolv 
IF(Xe .t&. 0)GU TU 600 00172 
GO 101600, 4002, 600 » 400,600, 4U0 54005400 ) IE 00173 
400 WKITE( 69500) ley TEMP 9FA 00174 
500 FORMAT(T2,*UPPEK LIMIT UN FUEL/AIR (6.09) UR LNLET TEMP (2200 RK) wa0G175 
XS EXCEEDED IN SUBKe TEMKIS — Le eTeMhyrA=*, 0U1l16 
YTLOOyLAyTLIG st lLUelyTIZO,F1 0.4) OCclLi7 
600 RETURN 00178 
ENO OOliy 
\ 
| 
{ 
1 
{ y 
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PRATI & WHITNEY ALRLRAFT OLVISIUN VeR 
CSGePANTST, 10.0 
¢ OATA StT B2BUTIDEAL AT LEVEL OCL AS UF 1z/07/76 E33 
c DATA StT B2BVINPUT aT LEVEL [13 AS UF C2723778 
SUBRUUTINE TIDEAL (FA gFAVe hy T pXLHVye 
x OTL yOTIPyOTATgFATs Te yZTFD 


C IDEAL TEMP RISE (DTI) VS. FUEL/ALR (FAD » 
€ ACCUUNTING FOR VITIATED FUEL/AIK (FAV) 
C FaND FICTACIOUS INLET TEMP (Tr) Writh YiELUS DTLP=I-Tr AT FAV 
OTIP = O. 
Ou 1000 y=1,10 
TF _ = T-0T1P 
CALL TEMRIS( Try FAVePyUTIP, XLV) 
TA = Tr+*oT1P 
LRCABSUTX-T) elt. 52)1GU Tu 1005 
1000 CUNTINUc 
WKITE(6,1001) 


1001 FUKMAT(T2. "CONVERGENCE FALLUKE AUGMENTUK LOLAL TEMPERATUKE KISE'S 


WRITE (6910024 ITF sFAVePeOTIP es XLOVeTA 
10G2 FURMATITZs*TEeFAVe Pe OTLb yALHVs TA=* 9 130,6E15.5) 


1005 Fal = FAV+I Lt FAV) FFA 

CALL TEMRIS(TFe FAT» hy OTIT,ALnV) 
oTl = UTI T-OTIP 

C D®LESS PAKTIAL UF LOEAL TEMP KISE WIth FUELZAIK (ZTF) 
FAL = AMAX1(FAT—.002,0.) 
CALL TEMKIS(TRy FAL Pe UTil yXLHV) 
Fa2 = FAT +2002 
CALL TEMRIS(TR yrAzehyOTIZyXLHV) 
ite = Le 
LFCOTL 2G1. GedZTF = FASUTIFIDILZ—-UTL LIS (FA2Z—-FALIFU LL SEAV) 
KETURKN 
END 
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PRATT & whlINcY AaKUKAFIL DAVISLUN VEK 1Z/O7/76 
CSG.PANT5? 1¢.6 11.33.C2 
Cc VATA Sev BZYUUNBAR AT LEVEL CO AS UF 1¢/07/7TH £55 

SUBROUTINE UNDARC Te dR eXANe VIN Lig KK) 0u0u)l 
CNAME UNBARK(T pl ie XN eg VAN glee) O00C2 
CDATE MAKUN 4 el9Ol KEVISED 7762 000u3 
CPUKPUSE TU INTeRKPULATE A UNIVAKIATE UR BIVAKAATE TASLE. 000”C4 
CUS AGE (mt AKGUMENTS LN Tre CIST aAKE GEFINEO AS FULLGWS- 0G0Ccs 
c T =NaME UF ThE AKKAY WhithH CUNTAINS Int TaolLt VALUES. 00000 
c IR =tLeMtNT UF Trt ARKAY AT wHiCrn Ime TAbLt STAKTS. LF YUU mavtoocr7 
Cc UNLY UNE TABLE IN Trt ARKAY, IKFUNE. o0cLs 
Cc XAIN=ANUEPENUENT VAKIAbBLE IN Tre A~SENSte 00019 
Cc YIN=sNDEPENODENT VAKLABLE IN Tree Y-SENSts. Jr Tet TAbLE IS A OUuGiG 
Cc UNI VARAATE®s TmheN YAN 1S <erKUe 9c0O:l 
c ZZ =UEPENDENT VAKLAbLE. OOCieg 
c KR =UFF TAOLE INULCATUR. 00Ci>s 
c =O NUKMAL cVALUATIUN. OCCi4s 
c =1 Ure UN X MIN. 000.15 
Cc =2 UFF UN X& MAX. 00016 
c =3 Lrrk UN Y MINe oocle 
Cc =4 Urr ON X MiNe AND Y MINS 900.8 
Cc =5 UFF UN X MAX. AND Y MIN. ocely 
Cc =o UFF UN Y MAK. ococo 
Cc =7 Urr UN A MINe ANU Y MAK. G00e1 
c =b6 Urr UN X MAX. AND Y MAX. OCO<ce 
Cc = ceSS INAN Oy T&bete Stl UP WKUNG. 0C0<3 
c lr EaTrttn VAKLABLE LS Ukr Tre FAbLE, UNBAR WILE RETURN Itc ol at rats 
c CURNER VALUE, EmiS LMrLLES THAT UNGAR Witkh NUT EXTRKAPULATE o0cC<e5 
c ANY VUES NUT KCCUGNIZE ANY ULSLUNT INUIT Tics. 000co 
Cc Trt TAbLe MUST bE SET Ur AS FULLUWS-ALL NUMBERS AKE IN FLUATINGOCC. 7 
Cc PUINT MULE. 000c8 
Cc fe atKs =CORVE Noe 000cy¥ 
c TeLaely =NXe NUse UF A VALUES. 06030 
Cc FuaKecd) =NYe NUe UF Y VALULS*s’ CIN UNIVARIATE MAKE ZEKU.) 00031 
c TClnee) =X VALUES IN ASLENCANG ODER. 00032 
c Veaner) =¥ VALUES IN ASCENUING UOKOEK. 00Os5 
Cc PCaneed =2 VALUESe PUL Trmtm iN FULLUWING UROEK<KCUL hdr dihedd» 006446 
c LULaSImm—mLULINV De LideidyLlegctm—--Li2yNVi—-—-ZINAgld, CU0s5 
c LUNAGE Imm LENA GNYD® PUK DIVARLATE UNLYs 00036 
c aN Jeet REVISED UNDAK Inthe 2S Tht UPTAUN UF USING A FLKST, SELUOCUsT 
c fretku URKUEK INTERPULATLUN CUUATLUN. TU Use THIS OPTION PUT Tre 00050 
c Veeck AN FLUATING PUINT seTweeN Teind ANU TULKeld. AF THiS NUMOOU0>s9 
Cc 1S GKEATEK TmAN 360, Trt Tmt ASSUMTAUN IS MADE THAT THIS IS FRO004O 
c NUMLEK UF Aode Irby MEANS IAAT FABLES TrRal weke SET UP FUR Trt 00041 
Cc UNDAR CAN bE USEU LN Itt KeviSeO EQGQITIUN. THUS THe KEVASED Tan. 09042 
c be aS rULLUWS. : OCO4>s 
Cc TOLKRD SLUKVE NUe 00044 
Cc Teane ly =beGKe® UF ANTEKPULATAUN.S Gb0«5 
Cc TOAR*ZDENXS. NUe UF XK VALUES. 00040 
Cc tlee OLO4T 
c NWUlt. WHEN DUING Aly Nel Ucokte INTEKPULATAUN, YUU MUST HAVE alG0G4s 
Cc LEAST NL PUINTS*e N = by Ce UK Se OCO4y 

CLEMENS LUN CUMAC(Z) Ocoso 

DIMENSILN TELIA OD eVIOdsALE)D 0COs1 
Co peewee meee mnn= MAKLN 4, 1LYCL seen eee enn= 00052 
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PRATT & whi INEY ALKCKAFT ULViStuN VeK lZ/07/ 76 PaGt SERAAL 


CSG.PANIS7 16.0 11.3522 110 Céidcoy 
GC See ere= aan ecetey i oan sain MUBLE LED Fol emewsemesesese== nee UUO03 
GC SaSesete ssa esse Tu OU QUAURATLE ANU CANCAK INTERPULATIGN ALSL O005e 
lu * © 9U055 
AR = & CCO26 
KY = 0 00007 
4b = Inel OUD 
N= 3 COOsy 
NZ= < OUGeL 
Ar CTCL AIA S0d TOU, tOh ye he vCol 
700 dE CECA Ade Ced CCITT gs 0002 
704 dr (TOL bimeed (C5, 1CO, IC) GuGus 
7O5 N=t UUC 64 
GL Tu TUF OCGod 
Wo N= 2 GCbc6 
7O7 Ne= l 00Ce? 
7Ol it = 42 #1 OUlob 
7Oz Nizn *i) O° O09 
UL dU L = Light OCC 10 
ak ¢ TAL) + Ge ) o€y6Cedk Ovdl1L 
60 AR = 1 Gudt. 
4i2= Ce 00043 
LU le 9999 OCOTls 
51 NA = 1(L) * 25 OFO1d 
LF (TULL) © Oe b OOg>e—5u OCC To 
52 NY = U Coat 
GL TU 53 660 lo 
50 Ny = Titeho © 25 OucTY 
53 LUN TaNue GOUsU 
KR = © OCOKL 
KV 6 06062 
XA = XIN CCOss 
YY = Yan UU0KS 
vi = date ©0085 
v2 = NXehavl OLOKO 
AF UXK-109199361 9300940 VNObT 
400 UL 362 seJdleve C0088 
AR UAAMVAIDD BEG oC4e CS OCO6Y 
302 CUNTINUE uv0su 
309 Kn = « 000%) 
ARK = Thue) OCO4ve2 
306 val = Je-N 06093 
bu 10 3¢5 OL0%4 
30h whe = 1 OCOy¥5s 
AK = Thsld G00%e 
306 JAL = vi OU0s7 
oU TU 305% ccovs 
304 Ir (umsl-1l) 3019506, 507 60049 
307 ah tJmJe) 30393069309 00100 
305 JK1L = JmNe 00101 
305 CUNTINUE 001°z 
XINI = XxX 001u3 
Ir ONY) 21500, 150G, SUUL 001L4 


1500 bu 1599 LElyN1L 00105 


PRATT 


& wnhdTNeY ALKLKAFT Di viISlUN 


CSG.PAN757 
Xbb = ThyXdd 
Ly = yJXl * NA 
youd) = Tieyd 
1599 JXL = JAlOl 
» st} 
vu TU 54 \ 
3000 vl = JiwNx 
Je = UewNY 
Ir ¢V¥~-T¢91))54153409401 
401 OU Sac VFVleve 
AF CVVTAUD) Zl4 edie dic 
312° CUNTINUE 
319 KY = 6 
YY = Wye) 
316 JYl = verN 
GU TU 315 
3ll wy = 3 
yY «® Ttvl) 
Slo vvi = Vl 
ol Tu 315 
314 AF (JmvIKL) SligslOssl? 
317 LF (urued 31395169514 
313 s¥l = u-N2 
315 CUNTINUE 
vX2 = JK 
Ly = JV) * NY®(SXcmadn dd 
Lyi = LY 
UL 3099 LelyNl 
RAUL) = Tlsked 
youd = Teevl) 
LYl = LYLeNY 
309% JAc = vXerk 
1 = Cc 
wu Tu 54 
30% Yild = dZ 
LU 4400 Le1lyN 
LY. = LY 
yYeilel) = Ue 
OU 405 U MMehetva 
Yeu*l) = Vebody © TOLYLI*ACMMD 
405C LY1l = LYI*NY 
4400 CONTINUE 
UU 4199 LEdgN1 
AtuLd = Vivid 
#199 s¥l = o¥lel 
XANT = YY 
i= 1 
54 SS @ he 


AtNecd) = AbLD 
KIN@S) = Aled 

UU > setyNh 
Avseld = Abdel) = Ags 
Iracl = AINT = kbs) 
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0v1G6 
ocic?7 
0C10s 
00109 
00110 
001.11 
OOLlL2Z 
00113 
00114 
00145 
00116 
00117 
OCllg 
00119 
00129 
0C1lé1 
00122 
00123 
O01L<L4 
Q01<5 
00126 
CCle7 
OOlée 
OQULEeY 
00130 
Cols. 
06132 
00133 
00154 
00155 
06136 
OC19s7 
00156 
OC1l3y 
00140 
OOL4l 
O0L142 
001463 
O0l44 
OUL45 
OG1ls6 
OCl47 
00148 
OOl4+y 
00156 
OCSa 
OC1d52 
00153 
00154 
OG1S5 
OClSe 
00157 
06156 


PaGce 
411 


SEKAAL 
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CSGerhANT5S7 10.0 41233-0602 lle 021269 
IF ( TPAL1 ) 57,958,57 00159 
58 Zi2=yY (J) 00160 
X(1) = 0. ‘ OOlol 
Xle) = Ce OCloe 
x(3) = 0. ‘ OClos 
Xl) = 0-6 00164 
K(g) = 1.0 OC 165 
GU TU 59 OCloo 
57 D= D * TPALL OC1lo7 
GU TU (7l1ly7l129783) ON OC1loé 
T1L xXtd)) = TRPALISACI41) 601% 
GUO TU 55 oc1re 
W12 = xXtyd) = -TPaLl 00171 
6b TU 55 OClle 
TAUB XI) = UXbU eZ) Xd ETPALL 00173 
55 CONTiANUE COLI 
Atl) = AIN*2) Us Wy f-} 
ZZ = Of NL1Llo 
OL 56 J=l,sN1 Ou177 
X¢J) = OF VALVIFALUeLI® Klud)d OC1L «18 
ZZ = 22 + YOud*® AI) Ccl?sgy 
50 CONTINUE 0010 
59 1F (1) 309€,3098,9999 9Clbol 
9999 KK = KASKY OOLEZ 
RETUKN > Ooles 
END OvULES 


PRATT & WHITNEY AIKCRAFT OAVISIUN VER 
CSG -Pan757 16.0 
c DATA ScT bé6OwaKt AT LEVEL 001 AS UF 12/07/76 £33 


SUBROUTINE wAKE(K, OTFL) 


C PURFUSE EVALUATES WAKE KEACTLON EFFILIENLY ANU TEMPEKATURE 


noo 


CUMMON /CANPT/FriW ep PrSKe PSe TESRe VFUELs VA gp TAy AF yp TAUSALPHASFAR 
Ae XL EP SeCOFrM yy FARM, ASTRMGWEXT op TEXT 
CUMMUN /OTPUT/ MOUTAsMOUTF sMOTFE LO MOT EVGebDETALS b2,0L 15) 261190, 
AXATLF UD) eMOTFC pKl oPSI pTLFEXe b 39 TW, tTaFn 
XgDLU(5)9b1E, OMDUT BUC PRTVO pOUDUT 9 Vo Sk cE PSO eV e AO pCPS AU GE TAU 
Re DTOeALE1LO0) gEPSX14 100) pST1 4100) pt TAL 100) pNSTEP, TAEFF 
COMMUN /MLSL/ RHUASMUAsADULTe FI yL0C, FHWIMP rol Ts KMyTFO,Uir (5) 
AeBETAZIS) pETAWsMDTFLA ep TLC ep MDUTFLI 5) oF AKWs STEAK, FAKE 
CUMMON /LKVS/ CRKVMUAL 44 19 CKVKM( 44) 9 CR VLAM (22 De CRVPV (24) 
AeCKVSL (36) CRVPR(S0)s TKIP 41285) sCRKVTSLI26) 
XeCRVOHT( 26 Dp CK VPT 626) sCRVP TRI 24) pLKVSLE( LO) sCRVEVE CLO) eCRVTSP( los 
OLMENSIUN STUIFAI4) 
DATA STGIFA 46060896004, 2004, 00% / 
Tur = .001 
STFAK = STOLFAJFUEL) 
PrHi = FAKW/ STFAK 
Ir CISTRM cEGel) Tater = Ta 
CURVE 1S TrE SAME FUR yP4% AND srd 
CALL UNBAK (TKUPS ele bAKwy Tach pDTrig KS) 
OIFi = OTrFL / 128 
TAK = ¢ TAGEFF + 4600. ) / 1268 
KR = 0 
2489444 CUNVERTS FRUM ENG Tu SLI UNITS 
17e3 = ANCKEASES EFFECTIVE LOAUING TO BRING THeURCTICAL BL OWUUT 
LIMITS IN CINE WITH cCXFEKIENCE 
Y = PSL * 2489444. * £296 
KA = 06 
Yu = 0.0 
ETAL = 2999 
ETAK = .7 
Yu = PSICCETAL UTR le THe TAK ehrihd 
53 YR = PSALCETARSOTFi eT, TAK PHI) 
Orit = (Y-YLI/Y 
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